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/)
Powered by Discuz! X3.3