in trang chẳn lẻ trong Excell

In trang chẵn lẻ trong ExcelTuesday, 8.. File .pdf thì phần lớn bà con dùng Acrobat Reader để xem, nhưng chương trình này không hỗ trợ in chẵn lẻ.. Khắc phục bằng cách dùng Foxit Reader

In trang chẵn lẻ trong Excel

Tuesday, 8 July 2008, 04:21:09

Thủ thuật

"Có cô gái ngồi xõa tóc bên chú mèo" hỏi tui: "Sao in được trang chẵn lẻ trong Excel vậy anh?" Ngớ người! Mò

1 chút thì thấy các file doc thì có thể in trang chẵn lẻ dễ dàng File pdf thì phần lớn bà con dùng Acrobat Reader để xem, nhưng chương trình này không hỗ trợ in chẵn lẻ Khắc phục bằng cách dùng Foxit Reader để xem và in cũng tạm ổn Riêng đối với các file excel thì chịu Mới google ra được 1 cách của bọn nước ngoài, thấy cũng được lắm

Bà con đọc thấy hay comment cho em 1 phát nhé

- Đầu tiên mở file Excel muốn in ra, nhấn Alt+F8, nhập Marco name vào (PrintDoubleSided), xong nhấn nút

Create:

- Dán đoạn code 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

- Chạy marco mới tạo

- Trong hộp thoại hiển thị, nhấn 1 để in trang lẻ và 2 in trang chẵn:

Tui đã thử rồi, chạy ngon Up lên cách làm cho bà con nào bị như tui thì biết cách khắc phục !!!