in trang chẳn lẻ trong Excell

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 !!! . 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. 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