Question

我的打印机名称为:/abcFirst Floor A-Block,在NE04上以A-Block为名称: 如何印制

Private oWord As Word.Application

Dim lobjDoc As Word.Document

Dim strFolder as String
Dim pd As New PrintDocument
Dim strPrintername as String
oWord = CreateObject("Word.Application")
oWord.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
oWord.ActivePrinter =strPrintername 
strFolder="D:	estdoc.prn"

在这里,我给网络上的打印机名称,但用的是名称。

abcFirst Floor A-Block on NE04:

lobjDoc = oWord.Documents.Open(CType(strFolder, Object))

lobjDoc.PageSetup.FirstPageTray = Word.WdPaperTray.wdPrinterAutomaticSheetFeed

lobjDoc.PageSetup.OtherPagesTray = Word.WdPaperTray.wdPrinterAutomaticSheetFeed

lobjDoc.PrintOut(Background:=False, Append:=False, OutputFileName:=strFolder, PrintToFile:=True)   here its giving error about printer settings

lobjDoc.Close(SaveChanges:=False)

是否可通过PrintDocument打印其所有内容的文字文件?

感谢

Answer 1

你可以尝试:

First use the Windows printer settings to set that printer as the default printer. Then open Word by hand and open the VBA editor, go to the immediate window and type ?ActivePrinter.

希望这将给你提供你为了表彰它而必须寄出的打印名称的确切格式。

友情链接