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

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

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

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

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

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

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

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

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

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

　　Dim i, icount As Integer

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

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

　　如圖所示：

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

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

　　如圖所示：

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

　　Dim i, icount As Integer

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

　　'計(jì)算需要打印的總頁(yè)數(shù)icount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)'指定從第一頁(yè)開(kāi)始打印Range("P2").Value = 1'循環(huán)打印每一頁(yè)For i = 1 To icountRange("P2").Value = iRange("L1").Value = "第 " & i & " 頁(yè)"ActiveWindow.SelectedSheets.PrintOut'打印指定區(qū)域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("共" & icount & "頁(yè) " & "請(qǐng)輸入要打印的頁(yè)碼:", "提示", 1)If iget > icount Or iget < 1 ThenMsgBox "請(qǐng)檢查指定的頁(yè)碼是否超出范圍，應(yīng)為1---" & icount & "頁(yè)", vbOKOnlyExit SubElseRange("p2").Value = Int(iget)Range("l1").Value = "第 " & Int(iget) & " 頁(yè)"ActiveWindow.SelectedSheets.PrintOut’打印指定區(qū)域

　　End If

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