将word对话框转换为VB答案

【问题标题】：Converting word dialog to VB将word对话框转换为VB
【发布时间】：2014-10-15 11:58:11
【问题描述】：

很久没有做任何类型的编码了。我的任务是在轮班开始之前向我们所有的打印机发送测试页（看起来像旧的电视测试模式页）。这些页面将帮助我们的团队确定打印机是否存在任何物理问题（不良碳粉、定影器等）我找到了这段代码并在 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 中不起作用）。我刚刚重新开始编码，需要一个快速的解决方案。

【问题讨论】：

标签： vba printing vb6 vbe

【解决方案1】：

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

Set word = CreateObject("Word.Application")

With Word.dialogs(wdDialogFilePrintSetup)

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

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

所以

With Word.dialogs(97)

【讨论】：