I am wrting a macro that needs to print a excel page to three differnt
printing trays on the same printer. My code is below any help would be very
greatful.

Code below;

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

The easiest would be to have 3 separate print drivers, one set up for each
of the trays. Then change the activeprinter to each print driver in turn
and print out the page. (in otherwords, you can have multiple
printers/printdrivers defined for the same physical printer)

you could use sendkeys:
Changing the Paper Source Using SendKeys:
http://support.microsoft.com/default.aspx?scid=135791


I believe beyond that you have to get into mountains of API code.





--
Regards,
Tom Ogilvy


"Mannis" wrote in message
...
I am wrting a macro that needs to print a excel page to three differnt
printing trays on the same printer. My code is below any help would be
very
greatful.

Code below;

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

Thanks for you help

"Tom Ogilvy" wrote:

The easiest would be to have 3 separate print drivers, one set up for each
of the trays. Then change the activeprinter to each print driver in turn
and print out the page. (in otherwords, you can have multiple
printers/printdrivers defined for the same physical printer)

you could use sendkeys:
Changing the Paper Source Using SendKeys:
http://support.microsoft.com/default.aspx?scid=135791


I believe beyond that you have to get into mountains of API code.





--
Regards,
Tom Ogilvy


"Mannis" wrote in message
...
I am wrting a macro that needs to print a excel page to three differnt
printing trays on the same printer. My code is below any help would be
very
greatful.

Code below;

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True