《用EXCEL实现批量打印》由会员分享，可在线阅读，更多相关《用EXCEL实现批量打印（3页珍藏版）》请在金锄头文库上搜索。
1、用EXCEL实现批量打印企业年金个人信息确认表周临军近日，人力资源部门需要打印全行的企业年金个人信息确认表交每个员工签字，如果从清单中逐个将每人的信息复制粘贴到企业年金个人信息确认表，再打印出来，无疑工作量非常巨大，还容易出错。如何既准确提取数据，又能减少工作量呢？负责此项工作的雷姐向我求助。于是，我想到了利用EXCEL的VBA编程技术来达到这一目的。具体如下：1、启用“宏”在EXCEL的工具栏下打开“宏”(EXCEL2007版则需先点击左上角图标，找到EXCEL选项，勾选“在功能区显示开发工具选项卡”然后在开发工具栏打开“宏”)，将“宏安全性”设为“中”2、点击“宏”创建一个“宏”(宏名称可
2、任意取，如“批量打印”)，编辑这个“宏”写下如下代码：Sub批量打印()Macro1MacroSheets(2).Select选定Sheets(2)表，此表为企业年金个人信息清单qsh=Application.InputBox(prompt:二请输入起始号，Type:=1)录入需要打印的起始编号Ifqsh=FalseThenExitSubjsh=Application.InputBox(prompt:二请输入结束号，Type:=1)录入结束打印的终止编号Ifjsh=FalseThenExitSubSheets(1).Select选定Sheets(1)表，此表为企业年金个人信息确认表Fori=q
3、sh+1Tojsh+1Sheets(1).Range(b1)=Sheets(2).Range(a&i).Value从Sheets(2)表的A列提取编号，填入Sheets(1)的B1单元格Sheets(1).Range(b3)=Sheets(2).Range(s&i).Value从Sheets(2)表的S列提取部门信息，填入Sheets(1)的B3单元格Sheets(1).Range(d3)=Sheets(2).Range(c&i).Value从Sheets(2)表的C列提取姓名信息，填入Sheets(1)的D3单元格Sheets(1).Range(f3)=Sheets(2).Range(i&i
4、).Value从Sheets(2)表的I列提取性别信息，填入Sheets(1)的F3单元格Sheets(1).Range(b4)=Sheets(2).Range(e&i).Value从Sheets(2)表的E列提取证件号码信息，填入Sheets(1)的B4单元格Sheets(1).Range(f4)=Sheets(2).Range(h&i).Value从Sheets(2)表的H列提取出生日期信息，填入Sheets(1)的F4单元格Sheets(l).Range(b5)=Sheets(2).Range(o&i).Value从Sheets(2)表的0列提取参加工作日期信息，填入Sheets(l)的
5、5单元格从Sheets(2)表的N列提取Sheets(1).Range(d5)=Sheets(2).Range(n&i).Value入农行日期信息，填入Sheets(l)的D5单元格Sheets(l).Range(f5)=Sheets(2).Range(f&i).Value从Sheets(2)表的F列提取参加年金计划日期信息，填入Sheets(l)的F5单元格从Sheets(2)表的U列提取Sheets(1).Range(b7)=Sheets(2).Range(u&i).Value2008年补缴信息，填入Sheets(l)的B7单元格Sheets(l).Range(c7)=Sheets(2).
6、Range(v&i).Value从Sheets(2)表的V列提取2009年补缴信息，填入Sheets(l)的C7单元格Sheets(l).Range(d7)=Sheets(2).Range(w&i).Value从Sheets(2)表的W列提取2010年补缴信息，填入Sheets(l)的D7单元格Sheets(l).Range(e7)=Sheets(2).Range(x&i).Value从Sheets(2)表的X列提取2011年补缴信息，填入Sheets(l)的E7单元格Sheets(l).Range(f7)=Sheets(2).Range(y&i).Value从Sheets(2)表的Y列提取2
7、008年补缴信息，填入Sheets(l)的F7单元格ActiveWindow.SelectedSheets.PrintOutCopies:=l,Collate:二True输出到打印机打印出来NextiEndSub3、执行“宏”点击“宏”后，运行这个“宏”就OK了。4、表格格式如下：Sheetl表编号：0002企业年金个人信息确认表部门卡艮行卡申心/电子银行部姓名性别女身份证号码r432827197608203226出生年月1S76/8/20参加工乍日期2000/7/1入农行日期2000/7/1参加年全计划日期2D0E/1/1补建年金甑费金额（元200820Q9年201CI年2011年2012年1季度1391.771755.991847.182137.3733.87签名：年月日Sheet2表第一行为表头，从第二行起为个人信息。总结，EXCEL的VBA编程简单易学，掌握了能将大量的简单重复劳动由计算机自动完成,对提高工作效率大有帮助，以上方法不仅能实现企业年金个人信息确认表的打印，稍做修改，还能实现打印明信片、请柬等等。
