小编Ste*_*eve的帖子

我想打开一个打印对话框。我已经有十年没有用 VB 编程了，我已经有点生疏了。

我得到了一份 MS Access VB 脚本的副本，该脚本选择一个 MDB 文件，然后仅打印一份副本。我的思考过程是：

1. 打开一个对话框；
2. 选择打印机；
3. 输入份数；
4. 打印。

目前，我要修改的原始脚本部分是：

[SQL query above this]
....

' Open form
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("select@@identity")
Debug.Print rs(0)

Dim q As String
q = "transfer_id=" & rs(0)
DoCmd.OpenForm "Transfer Report", acNormal, , q, ,acDialog
DoCmd.PrintOut

...
[End If, End Sub, etc.]

这只会打印一份报告，该公司无法同时打印其他副本。由于是在现场，他们无法使用复印机，但仍需要多份副本。

我发现 David-W-Fenton 的一个答案（谢谢！）展示了如何创建一个对话框；下面的脚本能完成我想做的事情吗？并且，如何将一部分添加到对话框中以指定要打印的份数？

...  
Dim varPrinter As Printer
Dim strRowsource As String
Dim q As String
Dim rs As DAO.Recordset

Set rs = …