国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

電子表格Excel怎樣設置奇偶打印

2024-08-23 19:48:31
字體:
來源:轉載
供稿:網友

用好Excel的雙面打印
從節約的角度出發,公司的表格都要求雙面打印。但Excel偏偏沒有這一功能!怎么辦?自己動手添加一個“雙面打印”的按鈕吧!
編輯宏
第一步:啟動Excel 2003(其他版本請仿照操作),執行“工具→宏→Visual Basic編輯器”命令,進入Visual Basic編輯狀態(如圖1)。

第二步:在右側的“工程資源管理器”區域中,選中“VBAPRoject(PERNOSAL.XLS)”選項,執行“插入→模塊”命令,插入一個新模塊(模塊1)。
小提示
第一次使用宏功能時,需要進入下述操作,添加“個人宏工作簿”“PERNOSAL.XLS”(叫做“個人宏工作簿”),:在Excel中,執行“工具→宏→錄制新宏”命令,打開“錄制新宏”對話框(如圖2),輸入一個名稱,然后選擇將其“保存在”“個人宏工作簿”中,確定返回,隨便做一下編輯操作,然后按“停止錄制”工具欄上的“停止錄制”按鈕,系統即可自動添加“個人宏工作簿”。

第三步:雙擊“模塊1”進入代碼輸入區域,將下述代碼輸入其中:
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 "請將打印出的紙張反向裝入紙槽中", vbOKOnly, "打印另一面"
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
End Sub

第四步:輸入完成后,關閉Visual Basic編輯窗口返回。
添加按鈕
第一步:執行“工具→自定義”命令,打開“自定義”對話框(如圖3)。

第二步:切換到“命令”標簽下,在“類別”下面選中“宏”選項,然后將右側“命令”下面的“自定義按鈕”選項拖到工具欄合適位置上,添加一個按鈕。
第三步:單擊“更改所選內容”按鈕,在隨后展開的快捷菜單中,在“命名”右側的方框中輸入按鈕名稱(如“雙面打印”,并選中“總是用文字”選項。
第四步:在不關閉“自定義”對話框的情況下,右擊工具欄上剛才添加的“雙面打印”按鈕(參見圖3),在隨后彈出的快捷菜單中,選擇“指定宏”選項,打開“指定宏”對話框(如圖4)。

第五步:選中上面編輯的宏,確定退出,再關閉“自定義”對話框返回Excel編輯狀態。
雙面打印
啟動Excel,打開需要雙面打印的工作簿文件,單擊“雙面打印”按鈕,系統先將奇數頁打印出來,然后彈出如圖5所示的提示框,將打印的紙張反向裝入打印機的紙槽中,按下“確定”按鈕,即可將偶數頁打印到另一面上,達到雙面打印的目的。

小提示
如果在打印過程中,出現夾紙現象,致使部分頁面損壞,可以通過執行“文件→打印”命令,打開“打印”對話框,用手動的方法將少量損壞的頁單獨打印出來即可。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 怀宁县| 建水县| 正镶白旗| 白银市| 峨眉山市| 增城市| 若尔盖县| 类乌齐县| 东莞市| 环江| 绥阳县| 仪陇县| 九台市| 泽普县| 原阳县| 介休市| 平原县| 雷波县| 稷山县| 吉林省| 偏关县| 南木林县| 凤翔县| 运城市| 武清区| 山东省| 宣城市| 霍州市| 澄迈县| 衡南县| 澄江县| 天门市| 胶州市| 麻栗坡县| 宝应县| 公主岭市| 新建县| 寻甸| 丰顺县| 阿尔山市| 涟水县|