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

Мое название принтера \\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?

спасибо

5
задан Will Marcouiller 2 June 2010 в 02:52
поделиться

1 ответ

Вы можете попробовать следующее:

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

Мы надеемся, что это даст вам точный формат имени принтера, который вам нужно отправить, чтобы Word распознал его.

4
ответ дан 15 December 2019 в 00:52
поделиться
Другие вопросы по тегам:

Похожие вопросы: