vb.net - 使用 word.application 打印会导致错误“出现打印机错误”

Question

使用以下代码时

                Dim oWordApp As Word.Application
                Dim oTargetDoc As Word.Document
                oWordApp = New Word.Application

                Select Case SQLdr("Priority")
                    Case 1
                        oWordApp.WordBasic.FilePrintSetup(Printer:=printPriority1, DoNotSetAsSysDefault:=1)
                    Case 2
                        oWordApp.WordBasic.FilePrintSetup(Printer:=printPriority2, DoNotSetAsSysDefault:=1)
                    Case 3
                        oWordApp.WordBasic.FilePrintSetup(Printer:=printPriority3, DoNotSetAsSysDefault:=1)
                    Case 4
                        oWordApp.WordBasic.FilePrintSetup(Printer:=printPriority4, DoNotSetAsSysDefault:=1)
                    Case 5
                        oWordApp.WordBasic.FilePrintSetup(Printer:=printPriority5, DoNotSetAsSysDefault:=1)
                End Select

                oTargetDoc = oWordApp.Documents.Open(SQLdr("DocumentName") & ".doc")
                oWordApp.PrintOut()
                oWordApp.Documents.Close()
                oWordApp.Quit()

使用 FilePrintSetup 设置打印机时发生错误。

如果我手动打开 word 并打印文档，它工作正常。

我使用的打印机是网络打印机，看起来像“\\mhiav202\HP CM8060 MFP Priority 1”等。

我也可以使用 Adob​​e Reader 打印，没有任何问题。

Answer 1

请注意，fileprintsetup 方法的printername 参数区分大小写。XP 和 Win7 存储服务器\打印机名的方式不同，因此升级操作系统时可能会发现问题