如何在打印报表前弹出打印机设置选择

子煜　发表于：2011-10-12 08:43:03 　

复制

以下代码是打印按钮事件，点击就弹出预览报表页面，然后再有用户点击页面设置选择打印机，打印。

现在我想要的效果是，如何改成直接打印，并且在点击按钮前弹出打印机选择框，然后选好打印机，直接点打印就出来，不用预览。

这个代码怎样实现？

Private Sub Command106_Click()

Dim strDocName As String

    strDocName = "R_BiaoQian"

     DoCmd.OpenReport strDocName, acPreview, "Q_BiaoQian"

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

Top

在水一方发表于：2011-10-15 11:27:33

修改 DoCmd.OpenReport strDocName, acPreview, "Q_BiaoQian" 为

DoCmd.OpenReport strDocName, , "Q_BiaoQian" 试一试

Top

在水一方发表于：2011-10-15 11:29:01

Private Sub Command106_Click()

   Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

Dim strDocName As String

    strDocName = "R_BiaoQian"

DoCmd.OpenReport strDocName, , "Q_BiaoQian"

End Sub

Top

在水一方发表于：2011-10-15 11:32:03

Private Sub Command106_Click()

     If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click

Dim strDocName As String
       strDocName = "R_BiaoQian"
        DoCmd.OpenReport strDocName, , "Q_BiaoQian"
        End If

End Sub

Top

子煜发表于：2011-10-17 11:06:12

以上代码出错，“标签未定义”。。。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

如何在打印报表前弹出打印机设置选择