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设置打印机时发生错误。

如果我手动打开文字并打印文件，它可以正常工作。

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

我也可以使用Adobe Reader进行打印，没有任何问题。

Answer 1

请注意，fileprintsetup方法的printername参数区分大小写。 XP和Win7不以相同的方式存储server \ printernames，因此在升级OS时可能会发现问题

使用word.application打印会导致错误＆＃34;出现打印机错误＆＃34;

1 个答案: