聲明：本文出自雲上科技電腦工作室，版權所有，未經授權禁止轉載，請尊重知識版權！
對於需要頻繁切換打印機來完成打印工作的人來說，切換打印機的重復操作非常繁瑣且沒有效率。其實微軟早就為大家准備了各種解決重復勞動的各種工具，比如“快速訪問工具欄”和“宏”。下面筆者就跟大家來講講如何利用這兩個工具來為Excel電子表格添加快速打印的功能按鈕，只要輕輕點擊一下這個按鈕，內容就會發送至指定的打印機進行打印，而不用管當前默認的打印機是哪一台。
一、添加“快速打印”功能按鈕
首先打開Excel電子表格，點開窗口左上角下拉箭頭的“自定義快速訪問工具欄”，然后選擇相應的功能即可。比如我們選擇“快速打印”，這時我們會發現窗口左上角就多了一個打印機按鈕，點擊這個按鈕當前表格就會發送至默認的打印機進行快速打印，比起原來需要先點擊“文件”菜單，再點擊“打印”，方便許多。
圖1
二、啟用宏
宏是一系列VBS命令的合集，說到宏腳本，很多人都覺得那是非常復雜難懂的編程語言，其實，微軟早就為廣大菜鳥用戶提供了宏錄制功能，即它可以將用戶的操作過程以腳本語言的形式保存下來，在您下次需要執行相同操作時，執行一下錄制的宏即可。宏一般情況下是默認不啟用的，如果你需要使用則必須先去設置啟用宏（如圖2）。
圖2
三、錄制宏
例如我們來錄制一個打印文檔的宏腳本，首先點擊“錄制宏”（如圖3），然后設置宏名稱為PLQ_20K，並選擇宏保存位置（如圖4，當選擇保存在“個人宏工作簿”時，將在所有工作簿上都可以執行該宏；注意，如需編輯保存在個人宏工作簿的宏，需要先到視圖中取消隱藏），接着進行正常的打印操作，最后再次點擊“宏”下拉菜單，選擇“停止錄制”，這樣一個宏就錄制成功了；點擊“查看宏”就可以看到剛才已經錄制好的宏，選擇宏並點擊執行（如圖5），則剛才我們錄制的打印操作會自動再執行一遍。筆者發現在Win10系統上無法錄制打印操作的宏，但我們可以Win7系統上錄制好之后再將宏腳本復制到Win10系統上使用。
圖3
圖4
圖5
四、編輯宏
在剛才例子中錄制的宏，在執行時它使用的是默認的打印機，如果我們要讓宏使用指定的打印機，那就需要進一步編輯宏了。我們在查看窗口選中宏后，點擊“編輯”（如圖5）就可以進入到宏編輯窗口（如圖6）。在Sub與End Sub之間就是宏腳本（VBS代碼），我們不需要深入研究這些代碼，只要知道在什么位置插入或者替換一些代碼即可。
圖6
我們先來看看直接錄制打印過程得到的宏腳本如下：
Sub PLQ-20K打印機()
'
' PLQ-20K打印機 宏
' 發送至HP EPSON PLQ-20K ESC/P2打印機
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
腳本中以單引號開頭的行屬於宏說明或腳本注釋，是不用執行的，真正執行的代碼只有兩行，不用說這兩行代碼的意思肯定是發送當前表格至打印機進行打印。只要我們在這兩行代碼前加入一行選擇指定打印機的代碼，那就能實現剛才我們說的使用指定打印機進行快速打印的功能，這行代碼就是：Application.ActivePrinter = "EPSON PLQ-20K ESC/P2 在 Ne07:"。添加之后宏腳本如下：
Sub PLQ-20K打印機()
'
' PLQ-20K打印機 宏
' 發送至HP EPSON PLQ-20K ESC/P2打印機
'
'
Application.ActivePrinter = "EPSON PLQ-20K ESC/P2 在 Ne07:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
這里需要簡單地解析一下選擇打印機這行代碼的使用方法，引號部分的意思是："打印機名稱 在 端口:"。打印機名稱我們很容易獲取，在控制面板-打印機里面可以看到，但這個端口卻不是能直接看出來的，為此我們需要用到下面這個查看當前默認打印機名稱和端口的宏：
Sub 查看當前打印機()
'
' 查看當前打印機 宏
' 顯示當前打印機名稱，用於Excel宏調用。
'
'
MsgBox Application.ActivePrinter
End Sub
隨便錄制一個宏，然后將上面的宏代碼在編輯窗口中替換錄制的宏代碼即可。然后我們可以在Excel的打印界面改變當前默的認打印機（如圖7），再執行上面的宏來查看當前打印機的名稱和端口（如圖8）。
圖7
圖8
在獲取打印機名稱和端口后，我們將選擇打印機的宏代碼替換為：Application.ActivePrinter = "Foxit PDF Printer 在 Ne01:"，那么使用PDF打印機快速打印的宏腳本如下：
Sub Foxit_PDF_Printer打印機()
'
' Foxit_PDF_Printer打印機 宏
' 發送至Foxit PDF Printer打印機
'
'
Application.ActivePrinter = "Foxit PDF Printer 在 Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
如果我們在腳本最后加上一句選擇回原打印機的代碼，那就更完美了，這樣還不會改變默認打印機的設置，宏腳本如下：
Sub Foxit_PDF_Printer打印機()
'
' Foxit_PDF_Printer打印機 宏
' 發送至Foxit PDF Printer打印機
'
'
Application.ActivePrinter = "Foxit PDF Printer 在 Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Application.ActivePrinter = "EPSON PLQ-20K ESC/P2 在 Ne07:"
End Sub
五、在”快速訪問工具欄“中添加”宏“
上面我們錄制好的宏功能很強大，但執行的時候需要依次點擊”視圖“-”宏“-”查看宏“-選擇宏-”執行“，每次都按這個操作過程進行點擊也是很煩人的，為此我們可以將宏添加到之前講到的”快速訪問工具欄“，功能按鈕顯示在窗口左上角，直接點擊一下，宏就立即執行了，方便到不行不行的（如圖9和圖10）。
圖9
圖10
當然，除了Excel，Word和PowerPoint 也有宏的功能，使用方法類似。
附件：快速打印宏代碼
提取碼：nzm5