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