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
HỖ TRỢ |
---|
02516-544-809 1900-636-507 |
Giờ làm việc |
Sáng 07h30 đến 12h00 |
Chiều 13h30 đến 17h00 |