編輯Excel宏命令雙面打印Excel2003表格

 　　在Word2003的“打印”對話框中可以方便地設置雙面打印Word文檔，但是在Excle2003中則沒有雙面打印的設置選項。用戶可以通過在Excel2003中編輯宏命令實現雙面打印Excel2003表格。

　　1.編輯Excel2003宏命令

　　在Excel2003中第一次使用宏功能時，需要添加“個人宏工作簿”(即PERNOSAL.XLS)，然後再使用Visual Basic編輯器編輯雙面打印的宏命令。操作步驟如下所述：

　　第1步，打開Excel2003，在Excel2003窗口中依次單擊“工具”→“宏”→“錄制新宏”菜單命令，打開“錄制新宏”對話框。在“宏名”編輯框中輸入任意名稱，然後在“保存在”下拉菜單中選中“個人宏工作簿”選項，並單擊“確定”按鈕，如圖2008070501所示。

　　圖2008070501 選中“個人宏工作簿”選項

　　第2步，在打開的錄制宏工具欄中單擊“停止錄制”按鈕，Excel2003即可自動添加“個人宏工作簿”，如圖2008070502所示。

　　圖2008070502 單擊“停止錄制”按鈕

　　第3步， 在Excel2003窗口中依次單擊“工具”→“宏”→“Visual Basic編輯器”菜單命令，打開Visual Basic編輯器窗口。右鍵單擊左側“工程”窗格中的“VBAProject(PERNOSAL.XLS)”選項，依次選擇“插入”→“模塊”菜單命令插入模塊1，如圖2008070503所示。

　　圖2008070503 選擇“插入”→“模塊”命令

　　第4步，雙擊“模塊1”打開代碼輸入窗口，輸入下面的代碼：

　　Sub dy()

　　On Error Resume Next

　　x = ExecuteExcel4Macro("Get.Document(50)")

　　For i = 1 To Int(x / 2) + 1

　　ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1

　　Next i

　　MsgBox "請將打印出的紙張反向裝入紙槽中", vbOKOnly, "打印另一面"

　　For j = 1 To Int(x / 2) + 1

　　ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j

　　Next j

　　End Sub

　　輸入完成後依次單擊“文件”→“保存”菜單命令，並關閉Visual Basic編輯窗口返回Excel2003窗口，如圖2008070504所示。

　　圖2008070504 輸入代碼

　　2.在工具欄添加“雙面打印”按鈕

　　第1步，在Excel2003窗口依次執行“工具”→“自定義”菜單命令，打開“自定義”對話框。在“命令”選項卡中的“類別”列表中選中“宏”選項，然後將“命令”列表中的“自定義按鈕”選項拖曳到工具欄上的合適位置，如圖2008070505所示。

　　圖2008070505 拖動“自定義按鈕”選項

　　第2步，選中剛剛添加的自定義按鈕，在“自定義對話框”中單擊“更改所選內容”按鈕。在打開的快捷菜單中編輯“命名”編輯框，為自定義按鈕輸入名稱(如“雙面打印”)，並選中“總是用文字”選項，如圖2008070506所示。

　　圖2008070506 命名自定義按鈕

　　第3步，保持“自定義”對話框的打開狀態，然後右鍵單擊工具欄上剛添加的“雙面打印”按鈕，在打開的快捷菜單中單擊“指定宏”命令，如圖2008070507所示。

　　圖2008070507 單擊“指定宏”命令

　　第4步，打開“宏”對話框，選中事先編輯的宏，並單擊“確定”按鈕，如圖2008070508所示。

　　圖2008070508 “指定宏”對話框

　　第5步，關閉“自定義”對話框返回到Excel2003窗口。

　　3.雙面打印Excel2003表格

　　打開需要雙面打印的Excel2003文件，在工具欄中單擊“雙面打印”按鈕。Excel2003會先將奇數頁打印出來，然後打開“打開另一面”對話框，提示用戶將紙張反向裝入打印機的紙槽中。單擊“確定”按鈕即可將偶數頁打印到另一面上，從而實現雙面打印，如圖2008070509所示。

　　圖2008070509 更換紙張打印面