ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Designate Printer (https://www.excelbanter.com/excel-discussion-misc-queries/71519-designate-printer.html)

Shelly9633

Designate Printer
 
I have two local printers, and one network printer on my computer. Is there
anyway to designate a printer for a file, so that it doesn't automatically
print to the default printer?

Bob Phillips

Designate Printer
 
You could call up the printer dialog and let them select.
application.dialogs(xldialogprint).Show

or maybe try this

Dim currPrinter
With Application
currPrinter = .ActivePrinter
.ActivePrinter = "HP DeskJet 890C on LPT1:"
ActiveWindow.SelectedSheets.PrintOut
.ActivePrinter = currPrinter
End With



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Shelly9633" wrote in message
...
I have two local printers, and one network printer on my computer. Is

there
anyway to designate a printer for a file, so that it doesn't automatically
print to the default printer?





All times are GMT +1. The time now is 10:57 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com