macro for printing to nondefault printer

McStevens · Apr 24th, 2002, 10:29 AM

I can't get my macro to work where I set the active printer to a printer name. It doesn't recognize the network printer even though I used the exact printer name. If I record a macro where I select the network printer it works fine on that workstation but if I use it from another workstation it can't find the network printer even though that workstation can see that printer and can print to it. Any suggestions?
Peter

[ This Message was edited by: McStevens on 2002-04-24 14:36 ]

Tom Schreiner · Apr 24th, 2002, 10:56 AM

Post your code Peter

[ This Message was edited by: TsTom on 2002-04-24 09:57 ]

McStevens · Apr 24th, 2002, 11:33 AM

I've tried it 2 ways:

1st
ActiveSheet.PrintOut ActivePrinter:="Office2"

2nd
xOriginalPrinter = Application.ActivePrinter
Application.ActivePrinter = "Office2"
ActiveSheet.PrintOut
Application.ActivePrinter = xOriginalPrinter

both of these follow some other code doing calculations.
Pete

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 24th, 2002, 10:29 AM	#1
McStevens New Member Join Date: Apr 2002 Location: McStevens Posts: 3	I can't get my macro to work where I set the active printer to a printer name. It doesn't recognize the network printer even though I used the exact printer name. If I record a macro where I select the network printer it works fine on that workstation but if I use it from another workstation it can't find the network printer even though that workstation can see that printer and can print to it. Any suggestions? Peter [ This Message was edited by: McStevens on 2002-04-24 14:36 ]

Apr 24th, 2002, 10:56 AM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Post your code Peter [ This Message was edited by: TsTom on 2002-04-24 09:57 ]

Apr 24th, 2002, 11:33 AM	#3
McStevens New Member Join Date: Apr 2002 Location: McStevens Posts: 3	I've tried it 2 ways: 1st ActiveSheet.PrintOut ActivePrinter:="Office2" 2nd xOriginalPrinter = Application.ActivePrinter Application.ActivePrinter = "Office2" ActiveSheet.PrintOut Application.ActivePrinter = xOriginalPrinter both of these follow some other code doing calculations. Pete