打印报表前,先弹出打印机选择窗口,怎么做呢?

sunny　发表于：2009-06-19 15:49:29 　

复制

如题,

就是按了打印报表按钮,先弹出打印机选择窗口,选择完了,确定,再把报表打印

怎么做呢?

Top

钱玉炜发表于：2009-06-19 16:41:22

单击打印按钮，弹出打印机选择窗体，在窗体里设置完了再打印

Top

豆豆发表于：2009-06-19 18:06:28

DoCmd.RunCommand acCmdPrint

打开打印机选择窗口

Top

Victor Duane 发表于：2009-06-19 21:18:49

http://www.accessoft.com/blog/article-show.asp?userid=70&Id=1229

你可以参考一下

Top

sunny 发表于：2009-06-20 10:09:39

to:chaojianan

Private Sub YLBB_Click()
On Error GoTo Err_YLBB_Click

Dim stDocName As String

DoCmd.RunCommand acCmdPrint '是放到这里吗?打印窗体了,不是打印报表

stDocName = ChrW(-28217) & ChrW(-29395) & ChrW(21333) & ChrW(25253) & ChrW(-30616)
DoCmd.OpenReport stDocName, acPreview

Exit_YLBB_Click:
Exit Sub

Err_YLBB_Click:
    MsgBox Err.Description
    Resume Exit_YLBB_Click

End Sub

Top

sunny 发表于：2009-06-20 10:25:32

单击打印按钮，弹出打印机选择窗体，在窗体里设置完了再打印

这句有深度

Top

豆豆发表于：2009-06-20 14:23:19

在2002和以后的版本，数据库会记忆报表设计时的打印机，即使更改了默认的打印机，

打印报表时也会用设计时的打印机进行打印。

如果需要临时修改

报表的打印机，要像1楼所言，打开打印机选择窗体，在窗体里设置完了再打印。

4楼的应该可以。

Top

sunny 发表于：2009-06-20 20:57:20

这样才可以

Private Sub DYBB_Click()
On Error GoTo Err_DYBB_Click

DoCmd.SelectObject acReport, "采购单报表", True
DoCmd.RunCommand acCmdPrint

Exit_DYBB_Click:
Exit Sub

Err_DYBB_Click:
    MsgBox Err.Description
    Resume Exit_DYBB_Click

End Sub

Top

sunny 发表于：2009-06-20 20:58:02

只需要有打印机选择就行了

Top

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

Access交流中心

打印报表前,先弹出打印机选择窗口,怎么做呢?