資源描述：
《宏功能實(shí)現(xiàn)excel雙面打印》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、宏功能實(shí)現(xiàn)Excel雙面打印使用Excel時(shí)，你會(huì)發(fā)覺找不到進(jìn)行雙面打印的操作選項(xiàng)，沒辦法只能手動(dòng)一張張的打印，若是要打印的文件頁碼很多，那這個(gè)工作就有點(diǎn)頭痛了。跟我來，使用Excel的宏功能，花幾分鐘進(jìn)行設(shè)置，你也能用Excel雙面打印。第一次使用宏功能，需要添加“個(gè)人宏工作簿”：在Excel中，執(zhí)行“工具→宏→錄制新宏”命令，打開“錄制新宏”對(duì)話框，然后選擇將其“保存在”“個(gè)人宏工作簿”中（如圖一），確定返回，隨便做一下編輯操作，然后按“停止錄制”按鈕，系統(tǒng)即可自動(dòng)添加“個(gè)人宏工作簿”。圖一第一步：?jiǎn)?dòng)Excel，執(zhí)行“工具→宏→VisualBasic編輯器”命令，進(jìn)入Visu
2、alBasic編輯狀態(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,"----提示----"OnErrorResumeNextNumPages=ExecuteExcel4Macro("GET.DOCUMENT(50)")ForPage=NumPagesTo1Step-1A
3、ctiveSheet.PrintOutFrom:=2*Page,To:=2*PageNextPageMsgBox"請(qǐng)將打印好的偶數(shù)頁紙張拿出，反向裝入紙槽中。",vbOKOnly,"準(zhǔn)備打印另一面"DimTotalPgAsIntegerTotalPg=ExecuteExcel4Macro("GET.DOCUMENT(50)")Fori=1ToTotalPgStep2ActiveSheet.PrintOutFrom:=i,To:=iNextEndSub（如圖四）圖四第三步：輸入完成后，關(guān)閉VisualBasic編輯窗口，再執(zhí)行“工具→宏→VisualBasic編輯器”命令，進(jìn)入Vis
4、ualBasic編輯，選中“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)閉VisualBasic編輯窗口。第四步：回到Excel編輯狀態(tài)，添加按鈕。執(zhí)行“工具→自定義”命令，打開“自定義”對(duì)話框。第五步：切換到“命令”標(biāo)簽下，在“類別”下面選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自定義按鈕”選項(xiàng)拖到工具欄合適位置上，添加一個(gè)按鈕（如圖五）。圖五第六步：右擊剛添加的按鈕，在展開的菜單中，在“命名”右側(cè)的方框中輸入按鈕名稱
5、“雙面打印”；右擊剛添加的按鈕，選中“總是用文字”選項(xiàng)（如圖六）；圖六右擊剛添加的按鈕，選擇“指定宏”選項(xiàng)，打開“指定宏”對(duì)話框，選中剛編輯的宏，位置選：PERNOSAL.XLS(如圖七)。關(guān)閉“自定義”對(duì)話框返回Excel編輯狀態(tài)。圖七宏編輯完成了。該代碼的打印順序是這樣的：先將偶數(shù)頁逆序打印出來，然后把打印好的偶數(shù)頁再放回打印機(jī)進(jìn)紙槽，執(zhí)行奇數(shù)頁打印。打開需要雙面打印的文件，單擊“雙面打印”按鈕，按照彈出提示操作，即可進(jìn)行雙面打印。寫在最后：本人對(duì)代碼可以說是一竅不通，只是平時(shí)總是為Excel的雙面打印而抓狂，在網(wǎng)上也找不到能解決的途徑，就找來一些代碼東拼西湊，經(jīng)過幾小時(shí)的調(diào)試
6、，總算能勝任雙面打印的要求，希望本文對(duì)和我遇到一樣問題的人有所幫助。2010年3月寫于麗江
