CÁCH IN TRANG CHẴN, LẺ TRONG EXCEL.[r]
(1)CÁCH IN TRANG CHẴN, LẺ TRONG EXCEL. 1/ - Mở file Excel muốn in ra, nhấn Alt+F8,
2/ - Nhập Marco name vào (PrintDoubleSided), xong nhấn nút Create: 3/ - Dán đoạn code (đỏ, nghiêng) vào save lại:
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("Enter for Odd, for Even") For pg = oddoreven To Totalpages Step
ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg Next pg
enditt:
End Sub