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) này vào rồi 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 1 for Odd, 2 for Even") For pg = oddoreven To Totalpages Step 2 ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg Next pg enditt: End Sub 4/ - Trở lại trang Excel cần in, nhấn Alt+F8, chạy marco mới tạo ( nhấn Run) Trong hộp thoại hiển thị, nhấn 1 để in trang lẻ và 2 in trang chẵn. . CÁCH IN TRANG CHẴN, LẺ TRONG EXCEL. 1/ - Mở file Excel muốn in ra, nhấn Alt+F 8, 2/ - Nhập Marco name vào (PrintDoubleSided ), xong nhấn nút Create: 3/ - Dán đoạn code (đ , nghiêng) này. Odd, 2 for Even") For pg = oddoreven To Totalpages Step 2 ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg Next pg enditt: End Sub 4/ - Trở lại trang Excel cần in, nhấn Alt+F 8,. trang Excel cần in, nhấn Alt+F 8, chạy marco mới tạo ( nhấn Run) Trong hộp thoại hiển th , nhấn 1 để in trang lẻ và 2 in trang chẵn.