In trang chẵn , lẻ trong excel.
Chia sẻ bởi Lê Đức Dũng |
Ngày 25/10/2018 |
26
Chia sẻ tài liệu: In trang chẵn , lẻ trong excel. thuộc Tin học 7
Nội dung tài liệu:
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.
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.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Lê Đức Dũng
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)