電子表格Excel怎樣設置雙面打印(奇偶打印)
??用好Excel的雙面打印
從節約的角度出發(fā)，公司的表格都要求雙面打印。但Excel偏偏沒(méi)有這一功能！怎么辦？自己動(dòng)手添加一個(gè)“雙面打印”的按鈕吧！
編輯宏
第一步:啟動(dòng)Excel 2003(其他版本請仿照操作)，執行“工具→宏→Visual Basic編輯器”命令，進(jìn)入Visual Basic編輯狀態(tài)(如圖1)。
第二步:在右側的“工程資源管理器”區域中，選中“VBAProject(PERNOSAL。XLS)”選項，執行“插入→模塊”命令，插入一個(gè)新模塊(模塊1)。
小提示
“PERNOSAL。XLS”叫做“個(gè)人宏工作簿”，第一次使用宏功能時(shí)，需要進(jìn)入下述操作，添加“個(gè)人宏工作簿”:在Excel中，執行“工具→宏→錄制新宏”命令，打開(kāi)“錄制新宏”對話(huà)框(如圖2)，輸入一個(gè)名稱(chēng)，然后選擇將其“保存在”“個(gè)人宏工作簿”中，確定返回，隨便做一下編輯操作，然后按“停止錄制”工具欄上的“停止錄制”按鈕，系統即可自動(dòng)添加“個(gè)人宏工作簿”。
第三步:雙擊“模塊1”進(jìn)入代碼輸入區域，將下述代碼輸入其中:
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
第四步:輸入完成后，關(guān)閉Visual Basic編輯窗口返回。
添加按鈕
第一步:執行“工具→自定義”命令，打開(kāi)“自定義”對話(huà)框(如圖3)。
第二步:切換到“命令”標簽下，在“類(lèi)別”下面選中“宏”選項，然后將右側“命令”下面的“自定義按鈕”選項拖到工具欄合適位置上，添加一個(gè)按鈕。
第三步:單擊“更改所選內容”按鈕，在隨后展開(kāi)的快捷菜單中，在“命名”右側的方框中輸入按鈕名稱(chēng)(如“雙面打印”，并選中“總是用文字”選項。
第四步:在不關(guān)閉“自定義”對話(huà)框的情況下，右擊工具欄上剛才添加的“雙面打印”按鈕(參見(jiàn)圖3)，在隨后彈出的快捷菜單中，選擇“指定宏”選項，打開(kāi)“指定宏”對話(huà)框(如圖4)。
第五步:選中上面編輯的宏，確定退出，再關(guān)閉“自定義”對話(huà)框返回Excel編輯狀態(tài)。
雙面打印
啟動(dòng)Excel，打開(kāi)需要雙面打印的工作簿文件，單擊“雙面打印”按鈕，系統先將奇數頁(yè)打印出來(lái)，然后彈出如圖5所示的提示框，將打印的紙張反向裝入打印機的紙槽中，按下“確定”按鈕，即可將偶數頁(yè)打印到另一面上，達到雙面打印的目的。
小提示
如果在打印過(guò)程中，出現夾紙現象，致使部分頁(yè)面損壞，可以通過(guò)執行“文件→打印”命令，打開(kāi)“打印”對話(huà)框，用手動(dòng)的方法將少量損壞的頁(yè)單獨打印出來(lái)即可。
