1、代码组是在第一页添加按钮,打印第二页内容
代码：
Sub Commandbutton()
Sheet2.PrintOut
End Sub
操作步骤：
在工具——宏——宏，填入Commandbutton创建
然后写入
Sub Commandbutton()
Sheet2.PrintOut
End Sub
在第一工作表添加按钮
视图——工具栏——窗体——按钮——选择Commandbutton指令——确定
点击按钮即可打印第二工作表内容
2、在打印界面含有变量数字适用于带编号的证书打印
代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[C22] = [C22] + 1
End Sub
打印区域名字为（=表单！B3）
其他表格
A3=打印区域变量数字
B3=VLOOKUP($A3,名单!$A$3:$M$190,2,0)
C3=VLOOKUP($A3,名单!$A$3:$M$190,3,0)
注释：用在（名单！$A$3：$M$190）区域搜索（$A3）位置的数字，读取之后所在行的第三列的内容填进当前的位置
使用 Workbook 的 Before_Print 事件. 按 [Alt + F11] 进入 VB Editor, 左侧会有一个 [ThisWorkbook], (如果没有, 按 [Ctrl+R] 叫出) 在 [ThisWorkbook] 快按两下, 贴上程序 --
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[C22] = [C22] + 1
End Sub
就可以了
回到打印区域打印即可
3、自动打印所选编号内适用于证书批量自动打印
代码：
Sub CommandButton()
For i = 01# To 05#
[C15] = [C15] + 1
ActiveSheet.PrintOut Copies:=1
Next
End Sub
此代码用于变量较多可由一个变量带动其他数据同时更改，并自动打印
本函数变量位置为打印工作薄C15
在表单工作薄中设置变量引用区域方便查看调试
打印工作薄中数据调用表单工作薄内容
本函数每次执行自动打印5份，可自行更改For i = 001# To 005#
先设置Sheet1为打印区域
打印区域内：名字位置调用（=表单！B3）
表单表格函数设置如下：
A3=打印区域变量数字（C15）
B3=VLOOKUP($A3,名单!$A$3:$M$190,2,0)
C3=VLOOKUP($A3,名单!$A$3:$M$190,3,0)
注释：用在（名单！$A$3：$M$190）区域搜索（$A3）位置的数字，读取之后所在行的第三列的内容填进当前的位置
使用 Workbook 的 Before_Print 事件. 按 [Alt + F11] 进入 VB Editor, 左侧会有一个 [ThisWorkbook], (如果没有, 按 [Ctrl+R] 叫出) 在 [ThisWorkbook] 快按两下, 贴上程序 --
Sub CommandButton()
For i = 001# To 005#
[C15] = [C15] + 1
ActiveSheet.PrintOut Copies:=1
Next
End Sub
按F5就会自动批量打印
