Print macros

[Guest]

Hi all

I have created a print macro in word that selects a
specific printer so I can print double sided, but when I
do this windows changes the default printer to the printer
that is used for double sided printing. I want the macros
to select the printer for double sided printing and when
its been printed, revert back to the default printer. Can
anyone help me out pls

Thanks

Jo

 

[Daniel Louwrens]

Hi all,

I have created a print macro in word that selects a
specific printer so I can print double sided, but when I
do this windows changes the default printer to the printer
that is used for double sided printing. I want the macros
to select the printer for double sided printing and when
its been printed, revert back to the default printer. Can
anyone help me out pls?

Thanks,

Joe

 

[Daniel Louwrens]

Hi Joe - As you have specified the printer to print you need to again
re-select your default printer using the same code:
ie - Application.ActivePrinter = "Win2PDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Win2PDF on Ne00:", Collate:=True
're set to correct laser printer
On Error GoTo printererror
Application.ActivePrinter = "\\NSWNT1\HPLaserJet on Ne02:"

The error routine is this case is it's a network printer so it may not be
found - hope this helps - Phil

 

[Daniel Louwrens]

Sorry my last post failed - You need to re-setect your default printer the
same way you selected you applications printer

ie - Application.ActivePrinter = "Win2PDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Win2PDF on Ne00:", Collate:=True
're set to correct laser printer
On Error GoTo printererror
Application.ActivePrinter = "\\NSWNT1\HPLaserJet on Ne02:"

The error routine is used as in this case it's a network printer so it
allows you to step through any error so the code won't crash

You can then place a message within the error routine indicating that the
printer is not avalible - hop this helps Phil