Question

自从进行任何类型的编码以来已经很长时间了。在轮班启动之前，我的任务是向所有打印机发送一个测试页面（看起来像旧的电视测试模式页面）。这些页面将帮助我们的团队确定打印机是否存在任何物理问题（墨粉，定影器等）我找到了这个代码并在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

我甚至创建了一个表格，可以打印到所有或只是特定的打印机管理层不希望在单词doc中使用它，而是希望在VB应用程序中使用它（更好的是基于Web）。经过广泛的研究，我发现wdDialogFilePrintSetup是一个基于WORD的对话框，在VB6 / 2008/2013中不起作用。我正在重新编写代码并需要快速解决方案。

Answer 1

使用自动化。如果你想打印docx文件，那么你需要单词。

Set word = CreateObject("Word.Application")

With Word.dialogs(wdDialogFilePrintSetup)

等。只需在word.。

前面添加对象

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

所以

With Word.dialogs(97)

将单词对话框转换为VB

1 个答案: