0

自从进行任何类型的编码以来已经有很长时间了。我的任务是在轮班开始之前向我们所有的打印机发送测试页（看起来像旧的电视测试模式页）。这些页面将帮助我们的团队确定打印机是否存在任何物理问题（不良碳粉、定影器等）我已找到此代码并在 VBA（MS Word）中使用。

 Sub Sorterprint01()
Dim sPrinter As String
Dim sPrinter1 As String
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "\\dc999nt09\USPRT_01"
.DoNotSetAsSysDefault = True
.Execute
Application.PrintOut FileName = "\\dc999file\share\7yr\Support\IS_TEAM_LOCAL\TEST SHEETS\BARCODE TEST SORTER01.docx"
.Printer = sPrinter
.Execute
End With

End Sub

我什至创建了一个表单来打印到所有打印机或仅打印到特定打印机。
管理层不希望在 word doc 中使用它，并且更愿意在 VB 应用程序中使用它（最好是基于 Web 的）。经过广泛的研究，我发现 wdDialogFilePrintSetup 是一个基于 WORD 的对话框，在 VB6/2008/2013 中不起作用）。我刚刚重新开始编码，需要一个快速的解决方案。

4

1 回答 1

0

使用自动化。如果要打印 docx 文件，则需要 word。

Set word = CreateObject("Word.Application")

With Word.dialogs(wdDialogFilePrintSetup)

等等。只需在你的对象前面加上word..

如果使用 VBScript（不能访问常量 - 如果不添加 Word 作为参考，VB6 也不能），您需要指定 wdDialogFilePrintSetup 等于的实际数字。

所以

With Word.dialogs(97)
于 2014-10-15T12:15:02.280 回答