求助：在窗体上的打印问题

hljthzbc

版主和大家好：
我在窗体上要实现报表的打印，可是有生产和销售两个报表。怎样可以按着编号分别打印，并每次只打印一个报表呢，（就是要打生产报表，就只能打生产报表呢）

tmtony

使用dlookup 查询到 这个编号的产销属性 是生产还是销售,然后打印不同的报表

hljthzbc

我还是不会呀

hljthzbc

此贴问题没有解决,那位再来帮一下

hljthzbc

我改的代码只能打生产-单表,销售表同时也打了多表,谁帮我改改,怎样实现用一个打印按钮打印分别打印

Private Sub Command14_Click()
'DoCmd.OpenReport "生产", , , "组合38=" & Me.组合38.Value

' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

    Dim strDocName As String
   
    strDocName = "生产"
   
    DoCmd.OpenReport strDocName, acViewNormal, "组合39"
   
strDocName = "销售"
   
    DoCmd.OpenReport strDocName, acViewNormal, "组合38"
Exit_PrintInvoice_Click:
    Exit Sub

Err_PrintInvoice_Click:
    ' 如果用户取消操作，不显示错误消息。
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

End Sub

hljthzbc

用两个按钮可实现打印,我想谁能帮我改成一个按钮
打印按钮无意碰到确会打印了多表.怎样解决在没有筛选的情况下不能打印.

Private Sub Command14_Click()
'DoCmd.OpenReport "生产", , , "组合38=" & Me.组合38.Value

' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

    Dim strDocName As String
   
    strDocName = "生产"
   
    DoCmd.OpenReport strDocName, acViewNormal, "组合39"
   

Exit_PrintInvoice_Click:
    Exit Sub

Err_PrintInvoice_Click:
    ' 如果用户取消操作，不显示错误消息。
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

End Sub
Private Sub Command15_Click()
'DoCmd.OpenReport "生产", , , "组合38=" & Me.组合38.Value

' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

    Dim strDocName As String
   
   
strDocName = "销售"
   
    DoCmd.OpenReport strDocName, acViewNormal, "组合38"
Exit_PrintInvoice_Click:
    Exit Sub

Err_PrintInvoice_Click:
    ' 如果用户取消操作，不显示错误消息。
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

End Sub