Bước 1: Mở Excel

Bước 2: Nhấn Alt+F8, xuất hiện cửa sổ

-         Tại dòng MacroName gõ InChanLe

-         Nhấn nút Create, xuất hiện cửa sổ mới

Bước 3: Dán đọan code sau vào giữa 2 dòng trong cửa sổ:

Dim Totalpages As Long
Dim pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
Totalpages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("Go 1 de in trang le, 2 de in trang chan")
For pg = oddoreven To Totalpages Step 2
ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg
Next pg
enditt:

Bước 4: Đóng cửa sổ, lưu file excel tên InChanLe.XLA vào thư mục C:\Program Files\Microsoft Office\OFFICE11\XLSTART (với Excel 2003)

Bước 5: Trong Excel, mở file muốn in, nhấn Alt+F8, nhấn Run, xuất hiện cửa sổ, gõ số 1 nếu in trang lẻ, số 2 nếu in trang chẵn.

Bước 6: Tạo phím tắt cho lệnh này như sau:

- Nhấn Alt+F8, xuất hiện cửa sổ

- Chọn dòng InChanLe, nhấn nút Option

- Gõ vào ký tự muốn gán phím tắt (có thể dùng nhấn Shift + P)

- Đóng cửa sổ, nhấn phím tắt đã đặt để thử nghiệm

*Cải tiến: Đọan code sau đây cho phép chỉ định in từ trang x đến trang y (nếu nhập x chẵn thì in trang chẵn):

Dim Totalpages As Long
Dim pg As Long
Dim oddoreven As Integer
Dim frompage As Integer
Dim topage As Integer
On Error GoTo enditt
Totalpages = ExecuteExcel4Macro("Get.Document(50)")
frompage = InputBox("Tu trang (so chan thi in trang chan, so le thi in trang le)")
topage = InputBox("Den trang")
For pg = frompage To topage Step 2
ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg
Next pg
enditt:

 Lưu ý: Nếu muốn tạo một công cụ cho lệnh này trên thanh công cụ, đọc bài viết Các thủ thuật hay trong Excel