excel表格固定模板自动打印自动填入信息？

需要VBA编程，做一个按钮来实现填充和打印。大概框架代码如下，细节部分需要你自己完善：

sub 宏1()

dim arr,i,t

arr=sheets("清单").usedrange

for i=2 to ubound(arr)

with sheets("模板")

'赋值，关键是下面的这句，其中的a2,3表示把【清单】表第3列的内容填入【模板】表的a2单元格，凡是需要填的地方都要这样一对一对的写到下面的行

for each t in array(array("a2",3), array("c2",4), array("d2",6))

.range(t(0)) = arr(i, t(1))

next t

.printout '打印输出【模板】表，如果需要选中打印机、设置打印属性等，可以修改代码（录制来改）或者先设定好

end with

next i

end sub

做一个宏,代码如下:

sub

按钮1_单击()

range("a1").select

'[a1]是要变单元格位置

activecell.formular1c1

=

[a1]

+

1

'1是看你要加多少,[a1]是单元格位置

activewindow.selectedsheets.printout

copies:=1,

collate:=true

'1是打印1份

end

sub

这需要使用word文档中使用邮件合功能并批量打印EXCEL的数据，具体方法如下：

1、打开正在使用的word文档（这里以空文档作为示例，实际运用时EXCEL文档插入内容和位置以实际需要为准。）找到上部菜单栏中的邮件选项，点击。

2、找到‘选择收件人’点击，找到‘使用现有列表’选项点击。

3、选择你要插入的数据源，即你要插入内容的EXCEL文档。选择点击打开。

4、选择你需要插入的列表。点击确定。

5、找到上部菜单‘插入合并区域选项’，点击选择，出现的菜单即为每一列的编号。（这里只是随便用几个数字代替了编号，具体插入内容时可根据实际情况选择。）

6、点击插入数据库域，点击地址域并添加地址域。插入内容即红线上方的内容。

7、插入完毕，点击上方菜单栏最后一个选项‘完成并合并’选项，选择这方d出的‘编辑单个文档’即可。

8、选择全部，确认，即插入完毕。可以开始打印了。

---