Активная проблема с принтером при печати документа Word через VB.net

Question

Имя моего принтера: \\abc\First Floor A-Block его имя \ abc \ Первый этаж A-Блок на NE04 :. Как я должен напечатать

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:\testdoc.prn" 

'Здесь я даю имя принтера, который находится в сети, но его принятие Name

\ а \ Первый этаж A-Block на 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) 

Есть ли способ распечатать документ Word со всем его содержимым через PrintDocument?

благодарит

Answer 1

Вы можете попробовать это:

Первое использование параметров принтера для Windows, чтобы установить, что в качестве принтера по умолчанию. Затем откройте Word вручную и откройте редактор VBA, перейдите в ближайшее окно и введите ?ActivePrinter.

Это, надеюсь, даст вам точный формат имени принтера, который необходимо отправить в Word для его распознавания.