Excel的雙面打印 每月一度的財(cái)務(wù)報(bào)表又要出爐了,回款明細(xì)頁數(shù)太多,單頁打吧,省事卻浪費(fèi)紙張,雙面打吧,ecxel又不支持,怎么辦啊?自己動(dòng)手添加一個(gè)“雙面打印”的按鈕吧! 編輯宏 第一步:啟動(dòng)Excel 2003(其他版本請(qǐng)仿照操作),執(zhí)行“工具→宏→Visual Basic編輯器”命令,進(jìn)入Visual Basic編輯狀態(tài)(如圖1)。 第二步:在右側(cè)的“工程資源管理器”區(qū)域中,選中“VBAProject(PERNOSAL.XLS)”選項(xiàng),執(zhí)行“插入→模塊”命令,插入一個(gè)新模塊(模塊1)。 小提示 “PERNOSAL.XLS”叫做“個(gè)人宏工作簿”,第一次使用宏功能時(shí),需要進(jìn)入下述操作,添加“個(gè)人宏工作簿”:在Excel中,執(zhí)行“工具→宏→錄制新宏”命令,打開“錄制新宏”對(duì)話框(如圖2),輸入一個(gè)名稱,然后選擇將其“保存在”“個(gè)人宏工作簿”中,確定返回,隨便做一下編輯操作,然后按“停止錄制”工具欄上的“停止錄制”按鈕,系統(tǒng)即可自動(dòng)添加“個(gè)人宏工作簿”。 第三步:雙擊“模塊1”進(jìn)入代碼輸入?yún)^(qū)域,將下述代碼輸入其中: Sub dy() On Error Resume Next x = ExecuteExcel4Macro("Get.Document(50)") For i = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox "請(qǐng)將打印出的紙張反向裝入紙槽中", vbOKOnly, "打印另一面" For j = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j Next j End Sub 第四步:輸入完成后,關(guān)閉Visual Basic編輯窗口返回。 添加按鈕 第一步:執(zhí)行“工具→自定義”命令,打開“自定義”對(duì)話框(如圖3)。 第二步:切換到“命令”標(biāo)簽下,在“類別”下面選中“宏”選項(xiàng),然后將右側(cè)“命令”下面的“自定義按鈕”選項(xiàng)拖到工具欄合適位置上,添加一個(gè)按鈕。 第三步:單擊“更改所選內(nèi)容”按鈕,在隨后展開的快捷菜單中,在“命名”右側(cè)的方框中輸入按鈕名稱(如“雙面打印”,并選中“總是用文字”選項(xiàng)。 第四步:在不關(guān)閉“自定義”對(duì)話框的情況下,右擊工具欄上剛才添加的“雙面打印”按鈕(參見圖3),在隨后彈出的快捷菜單中,選擇“指定宏”選項(xiàng),打開“指定宏”對(duì)話框(如圖4)。 第五步:選中上面編輯的宏,確定退出,再關(guān)閉“自定義”對(duì)話框返回Excel編輯狀態(tài)。 雙面打印 啟動(dòng)Excel,打開需要雙面打印的工作簿文件,單擊“雙面打印”按鈕,系統(tǒng)先將奇數(shù)頁打印出來,然后彈出如圖5所示的提示框,將打印的紙張反向裝入打印機(jī)的紙槽中,按下“確定”按鈕,即可將偶數(shù)頁打印到另一面上,達(dá)到雙面打印的目的。 小提示 如果在打印過程中,出現(xiàn)夾紙現(xiàn)象,致使部分頁面損壞,可以通過執(zhí)行“文件→打印”命令,打開“打印”對(duì)話框,用手動(dòng)的方法將少量損壞的頁單獨(dú)打印出來即可。 |
|