Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Active printer problem in Printing word document through VB.net

My printer name is \\abc\First Floor A-Block its taking name \abc\First Floor A-Block on NE04:. How should i print it

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"

' Here I am giving the printer name which is on network, But its taking name

\abc\First Floor A-Block on 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)

Is there any way to print word document with all its content through PrintDocument?

thanks

like image 628
sweety Avatar asked Oct 15 '22 05:10

sweety


1 Answers

You can try this:

First use the Windows printer settings to set that printer as the default printer. Then open Word by hand and open the VBA editor, go to the immediate window and type ?ActivePrinter.

This should hopefully give you the exact format for the printer name that you need to send in for Word to recognize it.

like image 109
Hans Olsson Avatar answered Oct 20 '22 07:10

Hans Olsson