Excel表格批量打印证书

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就会自动批量打印