Problem z aktywną drukarką w Drukowanie dokumentu tekstowego za pośrednictwem VB.net

Question

Moja nazwa drukarki to \\abc\First Floor A-Block jej przyjmowanie nazwy \ abc \ Pierwsze piętro A-Block na NE04 :. Jak mam go wydrukować

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" 

"Oto daję nazwę drukarki, która znajduje się w sieci, ale jego biorąc Imię

\ abc \ pierwszym piętrze-Block na 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) 

Czy istnieje sposób wydrukowania dokumentu ze wszystkimi jego zawartością za pomocą PrintDocument?

dzięki

Answer 1

Możesz spróbować tego:

Pierwsze użycie ustawienia drukarki w systemie Windows, aby ustawić tę drukarkę jako drukarkę domyślną. Następnie otwórz Word ręcznie i otwórz edytor VBA, przejdź do bezpośredniego okna i wpisz ?ActivePrinter.

Powinno to umożliwić podanie dokładnego formatu nazwy drukarki, którą należy wysłać do programu Word, aby ją rozpoznać.