Is it possible to create a Macro to Print Double sided and print

We have an existing macro which prints the first page of our bill, including the back page (which sits to the side).

Here is the current macro, I need one which prints the Bill to tray 2, double sided and one that prints it to Tray 1 doubled sided.

Is this possible?

Thanks

Sub print1()
Application.ScreenUpdating = False
ActiveSheet.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
End Sub

Sub print2()
Application.ScreenUpdating = False
ActiveSheet.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
End Sub

Sub print3()
Application.ScreenUpdating = False
ActiveSheet.PrintOut From:=1, To:=6, Copies:=1, Collate:=True
End Sub

Sub print4()
Application.ScreenUpdating = False
Application.Dialogs(xlDialogPrint).Show
End Sub