求助:打印报表不用预览直接打印当前录入数据怎么解决

hljthzbc

版主和大家好:

   打印报表-不用预览-直接-打印当前录入数据怎么解决

hljthzbc

那位帮我看看这段代码怎么改可以不用预览就可以直接打印呢

Sub Command14_Click()


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

    Dim strDocName As String
   If Not IsNull(Me.组合38) Then
   
    strDocName = "销售"
   
    ElseIf IsNull(Me.组合38) Then  '如果没有进行筛选，即两个都为空的情况下不打印
     
     Exit Sub

    End If
   
    DoCmd.OpenReport strDocName, acViewNormal, "产销表B-销售查询"

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

todaynew

DoCmd.OpenReport strDocName,, "产销表B-销售查询"
不要第二个参数，默认好像是直接打印。

hljthzbc

不可以打印呀

hljthzbc

没有筛选条件,打印很多页

hljthzbc

解决了
DoCmd.OpenReport strDocName, acViewNormal, , "产销ID=" & Me.组合38

hljthzbc

我又与到新问题了，如果是两个表这条代码怎么写
Sub Command15_Click()

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

    Dim strDocName As String
   If Not IsNull(Me.组合38) Then
   
    strDocName = "销售"
   
    ElseIf IsNull(Me.组合39) Then  '如果没有进行筛选，即两个都为空的情况下不打印
       strDocName = "生产"
     ElseIf IsNull(Me.组合38) And IsNull(Me.组合39) Then '如果没有进行筛选，即两个都为空的情况下不打印
     Exit Sub

    End If
   
    DoCmd.OpenReport strDocName, acViewNormal, , "产销ID=" & Me.组合38, , "产销ID=" & Me.组合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

hljthzbc

我在窗体上的两个报表,销售可以直接打印,而生产不可以,是那段代码的原因.

tz-chf

"产销ID=" & Me.组合38 & " and 产销ID=" & Me.组合39

hljthzbc

谢谢你的回贴帮助,可是我加上还是不行的,"产销ID=" & Me.组合38 & " and 产销ID=" & Me.组合39
两个报表还是不能直接打印呀