Excel中進行快捷打印考簽的操作技巧
Excel中進行快捷打印考簽的操作技巧
如何利用excel快捷打印考簽的操作?具體是怎么樣去進行的呢?今天,學(xué)習(xí)啦小編就教大家在Excel中進行快捷打印考簽的操作技巧。
Excel中進行快捷打印考簽的操作步驟
首先我們要打開上次我們設(shè)計的考簽?zāi)0錯xcel文件。打開“考簽打印B4紙”工作表。下我們需要在此工作表中,插入4個按鈕,在插入按鈕之前需要把“插入控件”工具按鈕顯示出來。方法是:鼠標指向“視圖”菜單,右鍵單擊,選擇“自定義快速訪問工具欄”。如圖所示“
如圖所示,按順序依次單擊,把”插入控件“加入快速訪問工具欄。
回到“考簽打印B4紙”工作表,這時就看到快速訪問工具欄上面多了一個按鈕“插入控件”。單擊其右邊的三角號,在彈出的菜單中選擇Activex類的命令按鈕,這樣就在“考簽打印B4紙”工作表中插入一個Activex類的命令按鈕。如圖所示。
右鍵單擊按鈕,選中”屬性“,如1圖,在彈出的屬性對話框中,分別設(shè)置按鈕的標題文字,背景顏色,字體,字號等,如2圖所示。
第一個按鈕設(shè)置效果下面如圖1所示. 用同樣的方法分別再插入3個命令按鈕。效果如圖2所示:
雙擊“預(yù)覽全部”按鈕,或通過查看工作表代碼,進入代碼編輯狀態(tài),把如下代碼復(fù)制到箭頭所指區(qū)域:
Dim i, icount As Integer
If MsgBox("確認要連續(xù)預(yù)覽所有頁嗎?", 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 '預(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("請輸入要打印標簽頁:", "提示", 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("確認要連續(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'恢復(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ù)自動計算出來的,無需人工設(shè)定。如果你的輸入的頁碼超出范圍,會有錯誤提示,讓你重新輸入,從這里可以看出vba代碼的優(yōu)越性。),效果如圖所示:
看過Excel中進行快捷打印考簽的操作技巧還看了: