Office中国论坛/Access中国论坛

标题: 怎么样可以选择打印机 [打印本页]

作者: amwnews 时间: 2005-4-24 02:34
标题: 怎么样可以选择打印机
如题

当前代码如下:

Sub 打印发货单_Click()
' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

Dim strDocName As String

strDocName = "发货单"
' 打印“发货单”报表，使用“发货单筛选”查询打印当前订单的发货单。
DoCmd.OpenReport strDocName, acViewNormal, "发货单筛选"

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

请问作如何修改可以选择打印机..

烦请高手指点.

作者: zyp 时间: 2005-4-24 03:38
更改acViewNormal为acPreview(预览模式），然后就可以按文件菜单下的打印按钮打开对话框

作者: elong 时间: 2009-8-12 12:56
DoCmd.OpenReport "打印_发货登记查询_出库单", acViewReport
DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)