如何利用excel快捷打印考签：[2]：预览与打印
有很多朋友不知道此款EXCEL的软件相关教程，今天神奇下载软件教程栏目编辑给众人奉上如何利用excel快捷打印考签：[2]：预览与打印内容，希望能够帮助到大家，一起来了解一下吧！
接上一讲“如何利用excel快捷打印考签：[1]考签模板设计”，今天我与大家继续分享如何实现考签的预览与打印。本讲中需要编写vba代码，有vba基础的朋友一看就会懂的，没有vba基础的朋友也不用灰心，只要你把我提供的vba代码复制到相应位置就可以了。下面就一起来看一看吧。
工具/原料
excel2010
方法/步骤
首先我们要打开上次我们设计的考签模板excel文件。打开“考签打印B4纸”工作表。下我们需要在此工作表中，插入4个按钮，在插入按钮之前需要把“插入控件”工具按钮显示出来。方法是：鼠标指向“视图”菜单，右键单击，选择“自定义快速访问工具栏”。如图所示“
如图所示，按顺序依次单击，把”插入控件“加入快速访问工具栏。
回到“考签打印B4纸”工作表，这时就看到快速访问工具栏上面多了一个按钮“插入控件”。单击其右边的三角号，在弹出的菜单中选择Activex类的命令按钮，这样就在“考签打印B4纸”工作表中插入一个Activex类的命令按钮。如图所示。
右键单击按钮，选中”属性“，如1图，在弹出的属性对话框中，分别设置按钮的标题文字，背景颜色，字体，字号等，如2图所示。
第一个按钮设置效果下面如图1所示. 用同样的方法分别再插入3个命令按钮。效果如图2所示：
双击“预览全部”按钮，或通过查看工作表代码，进入代码编辑状态，把如下代码复制到箭头所指区域：
Dim i, icount As Integer
If MsgBox("确认要连续预览所有页吗？", vbYesNo) = 7 ThenExit SubElseEnd If
'计算需要打印的总页数icount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)'指定从第一页开始打印Range("P2").Value = 1'循环打印每一页For i = 1 To icountRange("P2").Value = iRange("L1").Value = "第 " & i & " 页"ActiveWindow.SelectedSheets.PrintPreview '预览Next i'恢复参数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‘预览指定区域End If
如图所示：
为“打印全部页”按钮，添加如下代码。
Dim i, icount As Integer
If MsgBox("确认要连续打印所有页吗？", vbYesNo) = 7 ThenExit SubElseEnd If
'计算需要打印的总页数icount = Application.WorksheetFunction.Ceiling((Worksheets(2).[a65536].End(xlUp).row - 2) / 30, 1)'指定从第一页开始打印Range("P2").Value = 1'循环打印每一页For i = 1 To icountRange("P2").Value = iRange("L1").Value = "第 " & i & " 页"ActiveWindow.SelectedSheets.PrintOut'打印指定区域Next i'恢复参数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’打印指定区域
End If
最后，我们预览下效果：单击“预览指定页”，在弹出的对话框中输入要预览的页码，确定就可以预览打印效果了。（注：考签的总页数是vba代码通过排考名单中的总人数自动计算出来的，无需人工设定。如果你的输入的页码超出范围，会有错误提示，让你重新输入，从这里可以看出vba代码的优越性。），效果如图所示：
注意事项
如果单击按钮没有反应，择需要打开启动项。2007版以上的打开文件在菜单下方会有显示。2003版的打开文件时会有启动宏的提示，选择启动宏就是，如果没有启动宏的提示则需要把安全级别设为中。在使用的过程中如果有什么问题，可以回复信息，我们共同探究。(共篇)上一篇：考签模板设计以上的内容即是关于《如何利用excel快捷打印考签：[2]：预览与打印》软件教程文章全部内容了，希望能够帮到正在学习EXCEL的朋友！想要了解更多EXCEL软件内容，记得收藏我们神奇下载！
相关文章
Excel2010创建迷你图(excel2010迷你图创建在哪里)
excel打印如何使用自定義的紙張(EXCEL如何自定义公式)
近期热门
