S
Steve Jones
I'm not sure if this is possible - we have recently had a network printer
installed with 3 paper trays installed for another purpose entirely.
I was wondering if it would be possible for me to print from each tray
automatically.
I used the macro recorder and because I was manually selecting the trays
form a dropdown box it worked.
The macro recorder code however didn't record the tray selection (see below)
and consequently when running the code it just printed from the main tray.
Is there some code to insert to select the different trays?
Sub print_to_eachtray
'
' print_to_db Macro
Application.ActivePrinter = "Kyocera3900DN - Direct - DB on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Kyocera3900DN - Direct - DB on Ne02:", Collate:=True
' SELECT TRAY 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' SELECT TRAY 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' SELECT TRAY 3
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Thanks very much
Steve
installed with 3 paper trays installed for another purpose entirely.
I was wondering if it would be possible for me to print from each tray
automatically.
I used the macro recorder and because I was manually selecting the trays
form a dropdown box it worked.
The macro recorder code however didn't record the tray selection (see below)
and consequently when running the code it just printed from the main tray.
Is there some code to insert to select the different trays?
Sub print_to_eachtray
'
' print_to_db Macro
Application.ActivePrinter = "Kyocera3900DN - Direct - DB on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Kyocera3900DN - Direct - DB on Ne02:", Collate:=True
' SELECT TRAY 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' SELECT TRAY 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' SELECT TRAY 3
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Thanks very much
Steve