选择一次打印机之后系统自动根据第一次选择的打印机打印报表

xyh2732 · 发表于 2011-11-28 21:07:19

本帖最后由 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:09

把打印机设为默认打印机，就不需要选啦

andymark · 发表于 2011-11-29 11:22:29

直接用DOCMD.OPENREPORT 来打印

xyh2732 · 发表于 2011-11-29 13:29:02

本帖最后由 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:30

可以建一个表，保存各报表的预设打印机，打印时指定打印机应该OK的

andymark · 发表于 2011-11-29 13:34:17

需要自定义界面来代替系统自带的打印设置

xyh2732 · 发表于 2011-11-29 13:36:24

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

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 选择一次打印机之后系统自动根据第一次选择的打印机打印报表

群介绍
主题无相 (随机显示版	同地区群块其他地区)