Мое название принтера \\abc\First Floor A-Block
его имя взятия \abc\First 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"
'Здесь я даю название принтера, которое находится в сети, Но ее имени взятия
A-блок пола \abc\First на 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?
спасибо
Вы можете попробовать следующее:
Сначала используйте настройки принтера Windows, чтобы установить этот принтер в качестве принтера по умолчанию.
Затем откройте Word вручную и откройте редактор VBA, перейдите в ближайшее окно и введите ? ActivePrinter
.
Мы надеемся, что это даст вам точный формат имени принтера, который вам нужно отправить, чтобы Word распознал его.