說明:如果您有任何疑問或想咨詢其他業務請撥打電話 400 685 0732
全網監測海量數據按需發布監測預警
實時把握輿情動態精準追溯信息源頭
在excel中如何自己手動添加一個雙面打印按鈕,這個問題是我們很多人都很困惑的一個問題,在excel中如何自己手動添加一個雙面打印按鈕是我們非常常用的一個東西,也是我們工作和學習中必不可少的一個數據公式,那么具體我們要怎么做呢?下面就來看看這篇在excel中如何自己手動添加一個雙面打印按鈕的文章吧!
2015年開始都提倡節能減排了,作為一個公司也要從節約、節能開始,那么做為一名excel小編,今天我們就要給大家講一下,在excel中如何自己手動添加一個雙面打印按鈕。
首先我們要編輯宏:
第一步:啟動Excel 2003(其他版本請仿照操作),執行工具→宏→Visual Basic編輯器命令,進入Visual Basic編輯狀態(如圖1)。
圖1
第二步:在右側的工程資源管理器區域中,選中VBAProject(PERNOSAL.XLS)選項,執行插入→模塊命令,插入一個新模塊(模塊1)。
小提示
PERNOSAL.XLS叫做個人宏工作簿,第一次使用宏功能時,需要進入下述操作,添加個人宏工作簿:在Excel中,執行工具→宏→錄制新宏命令,打開錄制新宏對話框(如圖2),輸入一個名稱,然后選擇將其保存在個人宏工作簿中,確定返回,隨便做一下編輯操作,然后按停止錄制工具欄上的停止錄制按鈕,系統即可自動添加個人宏工作簿。
圖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
第二步:切換到命令標簽下,在類別下面選中宏選項,然后將右側命令下面的自定義按鈕選項拖到工具欄合適位置上,添加一個按鈕。
第三步:單擊更改所選內容按鈕,在隨后展開的快捷菜單中,在命名右側的方框中輸入按鈕名稱(如雙面打印,并選中總是用文字選項。
第四步:在不關閉自定義對話框的情況下,右擊工具欄上剛才添加的雙面打印按鈕(參見圖3),在隨后彈出的快捷菜單中,選擇指定宏選項,打開指定宏對話框(如圖4)。
圖4
第五步:選中上面編輯的宏,確定退出,再關閉自定義對話框返回Excel編輯狀態。
最后雙面打印
啟動Excel,打開需要雙面打印的工作簿文件,單擊雙面打印按鈕,系統先將奇數頁打印出來,然后彈出如圖5所示的提示框,將打印的紙張反向裝入打印機的紙槽中,按下確定按鈕,即可將偶數頁打印到另一面上,達到雙面打印的目的。
圖5
小提示
如果在打印過程中,出現夾紙現象,致使部分頁面損壞,可以通過執行文件→打印命令,打開打印對話框,用手動的方法將少量損壞的頁單獨打印出來即可。
以上就是在excel中如何自己手動添加一個雙面打印按鈕全部內容了,希望大家看完有所啟發,對自己的工作生活有所幫助,想要了解更多跟在excel中如何自己手動添加一個雙面打印按鈕請關注我們文章營銷官網!
推薦閱讀
說明:如果您有任何疑問或想咨詢其他業務請撥打電話 400 685 0732