Excel中進(jìn)行快捷打印考簽的操作技巧

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

　　Excel中進(jìn)行快捷打印考簽的操作步驟

　　首先我們要打開上次我們設(shè)計(jì)的考簽?zāi)０錯(cuò)xcel文件。打開“考簽打印B4紙”工作表。下我們需要在此工作表中，插入4個(gè)按鈕，在插入按鈕之前需要把“插入控件”工具按鈕顯示出來。方法是：鼠標(biāo)指向“視圖”菜單，右鍵單擊，選擇“自定義快速訪問工具欄”。如圖所示“

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

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

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

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

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

　　Dim i, icount As Integer

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

　　'計(jì)算需要打印的總頁數(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 '預(yù)覽Next i'恢復(fù)參數(shù)Range("p2").Value = 1Range("l1").Value = ""

　　如圖所示：

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

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

　　如圖所示：

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

　　Dim i, icount As Integer

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

　　'計(jì)算需要打印的總頁數(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'恢復(fù)參數(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 "請檢查指定的頁碼是否超出范圍，應(yīng)為1---" & icount & "頁", vbOKOnlyExit SubElseRange("p2").Value = Int(iget)Range("l1").Value = "第 " & Int(iget) & " 頁"ActiveWindow.SelectedSheets.PrintOut’打印指定區(qū)域

　　End If

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