Excel中進行快捷打印考簽的操作技巧

　　如何利用excel快捷打印考簽的操作?具體是怎么樣去進行的呢?今天，學習啦小編就教大家在Excel中進行快捷打印考簽的操作技巧。

　　Excel中進行快捷打印考簽的操作步驟

　　首先我們要打開上次我們設計的考簽模板excel文件。打開“考簽打印B4紙”工作表。下我們需要在此工作表中，插入4個按鈕，在插入按鈕之前需要把“插入控件”工具按鈕顯示出來。方法是：鼠標指向“視圖”菜單，右鍵單擊，選擇“自定義快速訪問工具欄”。如圖所示“

　　如圖所示，按順序依次單擊，把”插入控件“加入快速訪問工具欄。

　　回到“考簽打印B4紙”工作表，這時就看到快速訪問工具欄上面多了一個按鈕“插入控件”。單擊其右邊的三角號，在彈出的菜單中選擇Activex類的命令按鈕，這樣就在“考簽打印B4紙”工作表中插入一個Activex類的命令按鈕。如圖所示。

　　右鍵單擊按鈕，選中”屬性“，如1圖，在彈出的屬性對話框中，分別設置按鈕的標題文字，背景顏色，字體，字號等，如2圖所示。

　　第一個按鈕設置效果下面如圖1所示. 用同樣的方法分別再插入3個命令按鈕。效果如圖2所示：

　　雙擊“預覽全部”按鈕，或通過查看工作表代碼，進入代碼編輯狀態(tài)，把如下代碼復制到箭頭所指區(qū)域：

　　Dim i, icount As Integer

　　If MsgBox("確認要連續(xù)預覽所有頁嗎?", vbYesNo) = 7 ThenExit SubElseEnd If

　　'計算需要打印的總頁數(shù)icount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)'指定從第一頁開始打印Range("P2").Value = 1'循環(huán)打印每一頁For i = 1 To icountRange("P2").Value = iRange("L1").Value = "第 " & i & " 頁"ActiveWindow.SelectedSheets.PrintPreview '預覽Next i'恢復參數(shù)Range("p2").Value = 1Range("l1").Value = ""

　　如圖所示：

　　同樣的方法，為“預覽指定頁”按鈕，添加如下代碼。

　　Dim iget, icount As Integericount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)iget = InputBox("請輸入要打印標簽頁:", "提示", 1)If iget > icount Or iget < 1 ThenMsgBox "請檢查指定的頁碼是否超出范圍，應為1---" & icount & "頁", vbOKOnlyExit SubElseRange("p2").Value = Int(iget)Range("l1").Value = "第 " & Int(iget) & " 頁"ActiveWindow.SelectedSheets.PrintPreview‘預覽指定區(qū)域End If

　　如圖所示：

　　為“打印全部頁”按鈕，添加如下代碼。

　　Dim i, icount As Integer

　　If MsgBox("確認要連續(xù)打印所有頁嗎?", vbYesNo) = 7 ThenExit SubElseEnd If

　　'計算需要打印的總頁數(shù)icount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)'指定從第一頁開始打印Range("P2").Value = 1'循環(huán)打印每一頁For i = 1 To icountRange("P2").Value = iRange("L1").Value = "第 " & i & " 頁"ActiveWindow.SelectedSheets.PrintOut'打印指定區(qū)域Next i'恢復參數(shù)Range("p2").Value = 1Range("l1").Value = ""

　　如圖所示：

　　為“打印指定頁”按鈕，添加如下代碼。

　　Dim iget, icount As Integericount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)iget = InputBox("共" & icount & "頁 " & "請輸入要打印的頁碼:", "提示", 1)If iget > icount Or iget < 1 ThenMsgBox "請檢查指定的頁碼是否超出范圍，應為1---" & icount & "頁", vbOKOnlyExit SubElseRange("p2").Value = Int(iget)Range("l1").Value = "第 " & Int(iget) & " 頁"ActiveWindow.SelectedSheets.PrintOut’打印指定區(qū)域

　　End If

　　最后，我們預覽下效果：單擊“預覽指定頁”，在彈出的對話框中輸入要預覽的頁碼，確定就可以預覽打印效果了。(注：考簽的總頁數(shù)是vba代碼通過排考名單中的總人數(shù)自動計算出來的，無需人工設定。如果你的輸入的頁碼超出范圍，會有錯誤提示，讓你重新輸入，從這里可以看出vba代碼的優(yōu)越性。)，效果如圖所示：