教你如何實(shí)現(xiàn)excel雙面打印功能

《教你如何實(shí)現(xiàn)excel雙面打印功能》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、用好Excel雙面打印功能　　從節(jié)約的角度出發(fā)，公司的表格都要求雙面打印。但Excel偏偏沒有這一功能！怎么辦？自己動(dòng)手添加一個(gè)“雙面打印”的按鈕吧！　　編輯宏　　第一步：啟動(dòng)Excel2003(其他版本請仿照操作)，執(zhí)行“工具→宏→VisualBasic編輯器”命令，進(jìn)入VisualBasic編輯狀態(tài)?！　isualBasic編輯狀態(tài)　　第二步：在右側(cè)的“工程資源管理器”區(qū)域中，選中“VBAProject(PERNOSAL.XLS)”選項(xiàng)，執(zhí)行“插入→模塊”命令，插入一個(gè)新模塊(模塊1)。　　小提示　　“PERNOSAL.XLS”叫做“個(gè)人宏工作簿”，第一次使用宏功能時(shí)，需要進(jìn)入

2、下述操作，添加“個(gè)人宏工作簿”:在Excel中，執(zhí)行“工具→宏→錄制新宏”命令，打開“錄制新宏”對話框，輸入一個(gè)名稱，然后選擇將其“保存在”“個(gè)人宏工作簿”中，確定返回，隨便做一下編輯操作，然后按“停止錄制”工具欄上的“停止錄制”按鈕，系統(tǒng)即可自動(dòng)添加“個(gè)人宏工作簿”?！　　颁浿菩潞辍睂υ捒颉　〉谌剑弘p擊“模塊1”進(jìn)入代碼輸入?yún)^(qū)域，將下述代碼輸入其中：　　Subdy()　　OnErrorResumeNext　　x=ExecuteExcel4Macro("Get.Document(50)")　　Fori=1ToInt(x/2)+1　　ActiveWindow.SelectedShee

3、ts.PrintOutFrom:=2*i–1,To:=2*i-1　　Nexti　　MsgBox"請將打印出的紙張反向裝入紙槽中"，vbOKOnly,"打印另一面"　　Forj=1ToInt(x/2)+1　　ActiveWindow.SelectedSheets.PrintOutFrom:=2*j,To:=2*j　　Nextj　　EndSub　　第四步：輸入完成后，關(guān)閉VisualBasic編輯窗口返回。　　添加按鈕　　第一步:執(zhí)行“工具→自定義”命令，打開“自定義”對話框?！　　白远x”對話框　　第二步:切換到“命令”標(biāo)簽下，在“類別”下面選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自

4、定義按鈕”選項(xiàng)拖到工具欄合適位置上，添加一個(gè)按鈕。　　第三步:單擊“更改所選內(nèi)容”按鈕，在隨后展開的快捷菜單中，在“命名”右側(cè)的方框中輸入按鈕名稱(如“雙面打印”，并選中“總是用文字”選項(xiàng)。　　第四步:在不關(guān)閉“自定義”對話框的情況下，右擊工具欄上剛才添加的“雙面打印”按鈕，在隨后彈出的快捷菜單中，選擇“指定宏”選項(xiàng)，打開“指定宏”對話框?！　　爸付ê辍睂υ捒颉　〉谖宀?選中上面編輯的宏，確定退出，再關(guān)閉“自定義”對話框返回Excel編輯狀態(tài)?！　‰p面打印　　啟動(dòng)Excel，打開需要雙面打印的工作簿文件，單擊“雙面打印”按鈕，系統(tǒng)先將奇數(shù)頁打印出來，然后彈出提示框，將打印的紙張反向裝

5、入打印機(jī)的紙槽中，按下“確定”按鈕，即可將偶數(shù)頁打印到另一面上，達(dá)到雙面打印的目的。　　系統(tǒng)先將奇數(shù)頁打印出來，然后彈出提示框　　小提示　　如果在打印過程中，出現(xiàn)夾紙現(xiàn)象，致使部分頁面損壞，可以通過執(zhí)行“文件→打印”命令，打開“打印”對話框，用手動(dòng)的方法將少量損壞的頁單獨(dú)打印出來即可。