Office中国论坛/Access中国论坛

标题: 选择一次打印机之后系统自动根据第一次选择的打印机打印报表 [打印本页]

作者: xyh2732 时间: 2011-11-28 21:07
标题: 选择一次打印机之后系统自动根据第一次选择的打印机打印报表
本帖最后由 xyh2732 于 2011-11-28 21:08 编辑

请问如何可以实现以下功能，现在打印时会连续打印两张报表，弹出两次选择打印机框。如何可以使只弹出一次选择打印机款，而第二次打印就跟第一次打印相同。

比如我打印第一张报表会弹出选择打印机（A打印机），而第二张报表自动选择刚刚选择的打印机（A打印机）。请问可以实现此功能吗？

Private Sub Command6_Click()
DoCmd.SelectObject acReport, "rpt", True
  DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70 '选择打印机打印
If (MsgBox("是否打印", vbOKCancel + vbInformation, "系统提示")) = vbOK Then '确认是否打印
DoCmd.SelectObject acReport, "rpt1", True
DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70 '选择打印机打印
  Else
End If
End Sub

上传不了附件

作者: andymark 时间: 2011-11-29 11:21
把打印机设为默认打印机，就不需要选啦

作者: andymark 时间: 2011-11-29 11:22
直接用DOCMD.OPENREPORT 来打印

作者: xyh2732 时间: 2011-11-29 13:29
本帖最后由 xyh2732 于 2011-11-29 13:33 编辑

andymark 发表于 2011-11-29 11:21
把打印机设为默认打印机，就不需要选啦

你好谢谢你的提示，应为有多部打印机不能用默认打印机打印一定要跟第一次选择打印机打印。或者可否做到这样当打印机弹出选择打印机时，如果取消打印也继续则行下面代码。

If (MsgBox("是否打印", vbOKCancel + vbInformation, "系统提示")) = vbOK Then '确认是否打印
DoCmd.SelectObject acReport, "rpt1", True
DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70 '选择打印机打印 '取消打印时继续则行下面代码

Else
End If

后续还有代码。。。。。。。

作者: andymark 时间: 2011-11-29 13:32
可以建一个表，保存各报表的预设打印机，打印时指定打印机应该OK的

作者: andymark 时间: 2011-11-29 13:34
需要自定义界面来代替系统自带的打印设置

作者: xyh2732 时间: 2011-11-29 13:36

andymark 发表于 2011-11-29 13:34
需要自定义界面来代替系统自带的打印设置

或者可否做到这样当打印机弹出选择打印机时，如果取消打印也继续则行下面代码。

If (MsgBox("是否打印", vbOKCancel + vbInformation, "系统提示")) = vbOK Then '确认是否打印
DoCmd.SelectObject acReport, "rpt1", True
DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70 '选择打印机打印 '取消打印时继续则行下面代码

Else
End If

后续还有代码。。。。。。。

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