宏功能實(shí)現(xiàn)Excel雙面打印

1、宏功能 實(shí)現(xiàn)Excel雙面打印使用Excel時(shí)，你會(huì)發(fā)覺找不到進(jìn)行雙面打印的操作選項(xiàng)，沒辦法只能手動(dòng)一張張的打印，若是要打印的文件頁(yè)碼很多，那這個(gè)工作就有點(diǎn)頭痛了。跟我來(lái)，使用Excel的宏功能，花幾分鐘進(jìn)行設(shè)置，你也能用Excel雙面打印。第一次使用宏功能，需要添加“個(gè)人宏工作簿”：在Excel中，執(zhí)行“工具宏錄制新宏”命令，打開“錄制新宏”對(duì)話框，然后選擇將其“保存在”“個(gè)人宏工作簿”中（如圖一），確定返回，隨便做一下編輯操作，然后按“停止錄制”按鈕，系統(tǒng)即可自動(dòng)添加“個(gè)人宏工作簿”。圖 一第一步：?jiǎn)?dòng)Excel，執(zhí)行“工具宏Visual Basic編輯器”命令，進(jìn)入Visual Basi

2、c編輯狀態(tài)(如圖二)。圖 二第二步：在右側(cè)的“工程資源管理器”區(qū)域中，選中“VBAProject(PERNOSAL.XLS)”，展開“VBAProject(PERNOSAL.XLS)”分支，雙擊“模塊1”進(jìn)入代碼輸入?yún)^(qū)域（如圖三）。 圖 三將下述代碼粘貼覆蓋原有內(nèi)容（如圖四）：Sub 雙面打印() MsgBox "即將進(jìn)行雙面打??！取消打印請(qǐng)按住 Esc 鍵一秒鐘", vbOKOnly, "-提示-" On Error Resume Next NumPages = ExecuteExcel4Macro("GET.DOCUMENT(50)&quo

3、t;) For Page = NumPages To 1 Step -1 ActiveSheet.PrintOut From:=2 * Page, To:=2 * Page Next Page MsgBox "請(qǐng)將打印好的偶數(shù)頁(yè)紙張拿出，反向裝入紙槽中。", vbOKOnly, "準(zhǔn)備打印另一面" Dim TotalPg As Integer TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)") For i = 1 To TotalPg Step 2 ActiveSheet.PrintOut

4、 From:=i, To:=i NextEnd Sub（如圖四）圖 四第三步：輸入完成后，關(guān)閉Visual Basic編輯窗口，再執(zhí)行“工具宏Visual Basic編輯器”命令，進(jìn)入Visual Basic編輯，選中“VBAProject(PERNOSAL.XLS)”，展開“VBAProject(PERNOSAL.XLS)”分支，雙擊“模塊1”進(jìn)入代碼輸入?yún)^(qū)域，看看剛才的代碼是否已經(jīng)粘貼進(jìn)去，確認(rèn)代碼內(nèi)容已經(jīng)粘貼進(jìn)去后，關(guān)閉Visual Basic編輯窗口。 第四步：回到Excel編輯狀態(tài)，添加按鈕。執(zhí)行“工具自定義”命令，打開“自定義”對(duì)話框。 第五步：切換到“命令”標(biāo)簽下，在“類別”下面

5、選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自定義按鈕”選項(xiàng)拖到工具欄合適位置上，添加一個(gè)按鈕（如圖五）。圖 五第六步：右擊剛添加的按鈕，在展開的菜單中，在“命名”右側(cè)的方框中輸入按鈕名稱“雙面打印”；右擊剛添加的按鈕，選中“總是用文字”選項(xiàng)（如圖六）；圖 六右擊剛添加的按鈕，選擇“指定宏”選項(xiàng)，打開“指定宏”對(duì)話框，選中剛編輯的宏，位置選：PERNOSAL.XLS (如圖七)。關(guān)閉“自定義”對(duì)話框返回Excel編輯狀態(tài)。圖 七宏編輯完成了。該代碼的打印順序是這樣的：先將偶數(shù)頁(yè)逆序打印出來(lái)，然后把打印好的偶數(shù)頁(yè)再放回打印機(jī)進(jìn)紙槽，執(zhí)行奇數(shù)頁(yè)打印。打開需要雙面打印的文件，單擊“雙面打印”按鈕，按照彈出提示操作，即可進(jìn)行雙面打印。寫在最后：本人對(duì)代碼可以說(shuō)是一竅不通，只是平時(shí)總是為Excel的雙面打印而抓狂