Sub PrintDoubleSided()
Dim TotalPages As Long
Dim Pg As Long
Dim oddoreven As Integer
On Error GoTo enditt

TotalPages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox(" Vao so 1 de in trang Le , so 2 de in trang Chan ")
For Pg = oddoreven To TotalPages Step 2
ActiveWindow.SelectedSheets.PrintOut From:=Pg, To:=Pg
Next Pg

enditt:

End Sub