資源描述:
《編輯excel宏命令實現(xiàn)雙面打印》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、編輯Excel宏命令實現(xiàn)雙面打印在Word2003的“打印”對話框中可以方便地設(shè)置雙面打印Word文檔,但是在Excle2003中則沒有雙面打印的設(shè)置選項。用戶可以通過在Excel2003中編輯宏命令實現(xiàn)雙面打印Excel2003表格。1.編輯Excel2003宏命令在Excel2003中第一次使用宏功能時,需要添加“個人宏工作簿”(即PERNOSAL.XLS),然后再使用VisualBasic編輯器編輯雙面打印的宏命令。操作步驟如下所述:第1步,打開Excel2003,在Excel2003窗口中依次單擊“工具”→“宏”→“錄制新宏”菜單命令,打開“錄制新宏”對
2、話框。在“宏名”編輯框中輸入任意名稱,然后在“保存在”下拉菜單中選中“個人宏工作簿”選項,并單擊“確定”按鈕,如圖2008070501所示。圖2008070501?選中“個人宏工作簿”選項第2步,在打開的錄制宏工具欄中單擊“停止錄制”按鈕,Excel2003即可自動添加“個人宏工作簿”,如圖2008070502所示。圖2008070502?單擊“停止錄制”按鈕第3步,在Excel2003窗口中依次單擊“工具”→“宏”→“VisualBasic編輯器”菜單命令,打開VisualBasic編輯器窗口。右鍵單擊左側(cè)“工程”窗格中的“VBAProject(PERNOSA
3、L.XLS)”選項,依次選擇“插入”→“模塊”菜單命令插入模塊1,如圖2008070503所示。圖2008070503?選擇“插入”→“模塊”命令第4步,雙擊“模塊1”打開代碼輸入窗口,輸入下面的代碼:Subdy()OnErrorResumeNextx=ExecuteExcel4Macro("Get.Document(50)")Fori=1ToInt(x/2)+1ActiveWindow.SelectedSheets.PrintOutFrom:=2*i-1,To:=2*i-1NextiMsgBox"請將打印出的紙張反向裝入紙槽中",vbOKOnly,"打印另一面
4、"Forj=1ToInt(x/2)+1ActiveWindow.SelectedSheets.PrintOutFrom:=2*j,To:=2*jNextjEndSub輸入完成后依次單擊“文件”→“保存”菜單命令,并關(guān)閉VisualBasic編輯窗口返回Excel2003窗口,如圖2008070504所示。圖2008070504?輸入代碼2.在工具欄添加“雙面打印”按鈕第1步,在Excel2003窗口依次執(zhí)行“工具”→“自定義”菜單命令,打開“自定義”對話框。在“命令”選項卡中的“類別”列表中選中“宏”選項,然后將“命令”列表中的“自定義按鈕”選項拖曳到工具欄上的
5、合適位置,如圖2008070505所示。圖2008070505?拖動“自定義按鈕”選項第2步,選中剛剛添加的自定義按鈕,在“自定義對話框”中單擊“更改所選內(nèi)容”按鈕。在打開的快捷菜單中編輯“命名”編輯框,為自定義按鈕輸入名稱(如“雙面打印”),并選中“總是用文字”選項,如圖2008070506所示。圖2008070506?命名自定義按鈕第3步,保持“自定義”對話框的打開狀態(tài),然后右鍵單擊工具欄上剛添加的“雙面打印”按鈕,在打開的快捷菜單中單擊“指定宏”命令,如圖2008070507所示。圖2008070507?單擊“指定宏”命令第4步,打開“宏”對話框,選中事先
6、編輯的宏,并單擊“確定”按鈕,如圖2008070508所示。圖2008070508?“指定宏”對話框第5步,關(guān)閉“自定義”對話框返回到Excel2003窗口。3.雙面打印Excel2003表格打開需要雙面打印的Excel2003文件,在工具欄中單擊“雙面打印”按鈕。Excel2003會先將奇數(shù)頁打印出來,然后打開“打開另一面”對話框,提示用戶將紙張反向裝入打印機的紙槽中。單擊“確定”按鈕即可將偶數(shù)頁打印到另一面上,從而實現(xiàn)雙面打印,如圖2008070509所示。圖2008070509?更換紙張打印面