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

Question

Имя моего принтера \\abc\First Floor A-Block, его имя \ abc \ A-Block первого этажа на 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"

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

\ abc \ A-блок первого этажа на 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 распознал его.