資源描述：
《宏功能實(shí)現(xiàn)Excel雙面打印.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、個(gè)人收集整理勿做商業(yè)用途宏功能實(shí)現(xiàn)Excel雙面打印使用Eｘceｌ時(shí)，你會(huì)發(fā)覺(jué)找不到進(jìn)行雙面打印的操作選項(xiàng),沒(méi)辦法只能手動(dòng)一張張的打印，若是要打印的文件頁(yè)碼很多,那這個(gè)工作就有點(diǎn)頭痛了。跟我來(lái)，使用Excｅl的宏功能,花幾分鐘進(jìn)行設(shè)置,你也能用Excel雙面打印。第一次使用宏功能,需要添加“個(gè)人宏工作簿”:在Eｘcｅl中,執(zhí)行“工具→宏→錄制新宏”命令,打開(kāi)“錄制新宏”對(duì)話框,然后選擇將其“保存在”“個(gè)人宏工作簿”中(如圖一）,確定返回，隨便做一下編輯操作,然后按“停止錄制”按鈕，系統(tǒng)即可自動(dòng)添加“個(gè)人宏工作簿”。圖一第一步：?jiǎn)?dòng)Ｅｘcel，執(zhí)行“工具
2、→宏→ＶisｕａｌBasic編輯器”命令，進(jìn)入Vｉsｕａｌ Basic編輯狀態(tài)（如圖二)。圖二個(gè)人收集整理勿做商業(yè)用途第二步:在右側(cè)的“工程資源管理器”區(qū)域中，選中“ＶBAProjeｃt(PＥRNＯSAL.ＸLＳ)”,展開(kāi)“VＢＡＰroｊect(PERＮOSＡＬ.XＬＳ)”分支，雙擊“模塊1”進(jìn)入代碼輸入?yún)^(qū)域（如圖三）。 圖三個(gè)人收集整理勿做商業(yè)用途將下述代碼粘貼覆蓋原有內(nèi)容(如圖四）:Ｓub 雙面打印() MsgBox"即將進(jìn)行雙面打?。∪∠蛴≌?qǐng)按住Esｃ鍵一秒鐘", vbOKＯnly，＂----提示-－--" On ErｒｏrＲesumeNeｘt
3、 NｕmPagｅｓ＝ExecuｔｅExｃｅl4Macro(＂ＧET.ＤOＣUMENＴ（5０）＂) FｏrPage=NumPagesTｏ 1Sｔep-1ActiｖeShｅｅｔ.PrｉntOutFrom:＝２ * Page,?。詏:=２* Page NｅｘtPａge MsgＢｏx "請(qǐng)將打印好的偶數(shù)頁(yè)紙張拿出，反向裝入紙槽中。",vbOＫOnly,"準(zhǔn)備打印另一面"Ｄim TotaｌPg AｓＩｎtegeｒ TotalPg =ExｅｃuteExceｌ4Maｃro("GET.DOCＵＭENＴ(50）＂) Fori =1Ｔｏ?。詏talPｇStｅp2
4、ActivｅSheet.ＰｒｉntＯｕt Frｏm:=i,?。裕?＝ｉNextＥndSub（如圖四）圖四個(gè)人收集整理勿做商業(yè)用途第三步:輸入完成后,關(guān)閉ViｓｕａlＢａｓｉc編輯窗口,再執(zhí)行“工具→宏→VｉsualBａsic編輯器”命令,進(jìn)入VｉsｕalBasic編輯，選中“VBAＰrojｅｃｔ（PERNOＳAL.XLS)”,展開(kāi)“VBAProject(PERNOＳＡL.XLＳ)”分支，雙擊“模塊1”進(jìn)入代碼輸入?yún)^(qū)域，看看剛才的代碼是否已經(jīng)粘貼進(jìn)去，確認(rèn)代碼內(nèi)容已經(jīng)粘貼進(jìn)去后，關(guān)閉VｉsｕａlBａsｉc編輯窗口。第四步:回到Ｅｘceｌ編輯狀態(tài),添加按鈕
5、。執(zhí)行“工具→自定義”命令,打開(kāi)“自定義”對(duì)話框。第五步:切換到“命令”標(biāo)簽下,在“類(lèi)別”下面選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自定義按鈕”選項(xiàng)拖到工具欄合適位置上，添加一個(gè)按鈕（如圖五)。圖五個(gè)人收集整理勿做商業(yè)用途第六步：右擊剛添加的按鈕,在展開(kāi)的菜單中，在“命名”右側(cè)的方框中輸入按鈕名稱(chēng)“雙面打印”;右擊剛添加的按鈕,選中“總是用文字”選項(xiàng)（如圖六)；圖六右擊剛添加的按鈕，選擇“指定宏”選項(xiàng),打開(kāi)“指定宏”對(duì)話框，選中剛編輯的宏，位置選:PEＲNOSＡL．XLＳ（如圖七)。關(guān)閉“自定義”對(duì)話框返回Excel編輯狀態(tài)。個(gè)人收集整理勿做商業(yè)用
6、途圖 七宏編輯完成了。該代碼的打印順序是這樣的：先將偶數(shù)頁(yè)逆序打印出來(lái)，然后把打印好的偶數(shù)頁(yè)再放回打印機(jī)進(jìn)紙槽,執(zhí)行奇數(shù)頁(yè)打印。打開(kāi)需要雙面打印的文件,單擊“雙面打印”按鈕，按照彈出提示操作,即可進(jìn)行雙面打印。寫(xiě)在最后:本人對(duì)代碼可以說(shuō)是一竅不通，只是平時(shí)總是為Ｅxcel的雙面打印而抓狂,在網(wǎng)上也找不到能解決的途徑，就找來(lái)一些代碼東拼西湊,經(jīng)過(guò)幾小時(shí)的調(diào)試,總算能勝任雙面打印的要求,希望本文對(duì)和我遇到一樣問(wèn)題的人有所幫助。２01０年３月寫(xiě)于麗江
