Excel批量套打指定范围打印

前言

      批量打印，是我们在处理大量文件时常用的功能，而套打呢？绝大部分是利用第三方软件来实现的，World可以利用邮件合并的功能来实现文档的套打，但是，有时候我们的Excel表格需要根据清单明细表，将对应的内容填入套打模板相应的位置进行批量打印，如果数据太多，ctrl键就有点遭罪了。所以，稍微用一点VBA（即：Excel宏）就可以轻松实现了，而且还能指定范围：

      上图就是今天我所用的Excel批量套打的效果，由于我的电脑没有连接打印机，所以演示中只能输出到PDF文件，连接打印机后就会全自动的打印出来了。

操作步骤

01写入VBA代码

首先我们需要这样一段宏代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$K$3" Then Exit Sub

   [K2] = [K3]

End Sub

Sub 批量套打()

If [K3] > [K4] Then MsgBox "范围错啦，兄弟！": Exit Sub

For i = [K3] To [K4]

    [K3] = i

    Sheet1.PrintOut copies:=1, collate:=True

Next

End Sub

打开VBA编辑器（菜单-开发工具），将以上代码复制粘贴到VBA编辑器对应的对象里面就可以了（如果菜单栏里没有开发工具的，我们可以在菜单-选项-自定义功能区里面勾选开发工具即可调出，需要注意的是很多WPS版本不具备Excel宏功能，如果需要安装Office2019的同学可以私信小编，教您安装）。

02制作表格，Vlookup函数公式引用数据表

表格内容根据自己需要进行编辑，这里注意的是：需要引用数据表对应内容的单元格，需要用函数公式进行指定，上图中的姓名用VLOOKUP函数公式设置（=vlookup（K2,M3:Q8,2,0)，这个函数公式是条件查找，前公式解释为：以K2单元格为条件在M3:Q8单元格范围内查找，返回以M列起向右数第2列对应单元格的值）。

03下拉序列制作

下拉序列的制作，这个方法之前的文章有提到过多次，现在再说一下吧，选中需要设置的单元格，点击菜单-数据-数据有效性（有的叫做数据验证）-验证条件选择 序列-来源框选序号列范围，点击确定就可以了。

04按钮制作

      按钮的制作，点击菜单-插入-插入形状-选择一个形状-设置形状格式-形状上点击右键指定宏；形状可以根据需要任意选择，形状格式可以设置填充颜色、三维格式等，指定宏必须在形状上单击右键，有的版本需要在形状的边框上点击右键。点击进入下载专区下载文件