In trang chan le trong excel

CÁCH IN TRANG CHẴN, LẺ TRONG EXCEL.[r]

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