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

Hi Steve,

Create 3 printers (one for tray1, 2nd for tray2, ...) and print on a
different printer each time.

@+
FxM


Steve Jones a écrit :
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