资源描述：
《用EXCEL实现批量打印.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途用EXＣEL实现批量打印《企业年金个人信息确认表》周临军近日,人力资源部门需要打印全行的《企业年金个人信息确认表》交每个员工签字,如果从清单中逐个将每人的信息复制粘贴到《企业年金个人信息确认表》,再打印出来,无疑工作量非常巨大，还容易出错。如何既准确提取数据,又能减少工作量呢?负责此项工作的雷姐向我求助。于是,我想到了利用EＸCEL的ＶBＡ编程技术来达到这一目的。具体如下:1、启用“宏”,在ＥXCＥＬ的工具栏下打开“宏”(EXCEＬ２０07版则需先点击左上角图标，找到EXCEＬ选项，勾选“在功能区显示‘开发工具’选项卡”,然后在
2、开发工具栏打开“宏”),将“宏安全性”设为“中”。2、点击“宏”，创建一个“宏”（宏名称可任意取，如“批量打印”）,编辑这个“宏”,写下如下代码： Sｕb批量打印(）''Macro1 Macｒo'Shｅets（2)．Sｅｌeｃt ‘选定Sheets(2）表，此表为企业年金个人信息清单ｑsｈ =Ａpｐlicaｔion.IｎputBｏx(pｒｏmpt：="请输入起始号", Type:=1)‘录入需要打印的起始编号Ｉf qｓh＝Faｌｓe ThenExiｔＳuｂjｓh=Apｐlicａtiｏｎ.InｐuｔBox(ｐroｍpt:＝"请输入结束号",Ｔｙpe：=１
3、)‘录入结束打印的终止编号Ifjｓｈ =FalsｅＴhｅnＥxitSuｂSheets(1）．Selecｔ‘选定Ｓheetｓ(1)表,此表为企业年金个人信息确认表Fori =ｑｓｈ+ 1Ｔojsh+ 1Sheｅts(1）.Ｒａnｇe("b1")=Sheｅtｓ（２)．Ｒａnge(＂a＂&i).Vａｌue‘从Sheets(2)表的A列提取编号,填入Sｈｅets（1)的B1单元格Ｓhｅets（1)．Range("b３") =Shｅets(2).Raｎge("s"&i).Valｕe‘从Sheeｔｓ(2)表的S列提取部门信息,填入Ｓheets(１)的B３单元格Sh
4、eeｔs(1）.Raｎge(＂d３") =Ｓheetｓ（2）．Ｒange("ｃ"＆i）.Value‘从Shｅｅts(２)表的C列提取姓名信息，填入Sheｅts（1)的Ｄ3单元格Shｅets(1）．Ｒaｎge（"f3") ＝ Ｓhｅets（2).Range("i＂ & ｉ).Value‘从Ｓheｅts(2)表的I列提取性别信息,填入Sheets(１)的F３单元格Sheetｓ（1）.Raｎge(＂b4") =Sheeｔs(2)．Range("e"& ｉ).Valｕｅ‘从Shｅｅｔs（2)表的Ｅ列提取证件号码信息，填入Sheｅts(1)的Ｂ4单元格Sheet
5、s(1).Range("f4"）=Sheｅtｓ(2).Raｎge("ｈ＂ & i)．Vａｌｕe‘从Sheｅts（２）表的H列提取出生日期信息，填入Sheetｓ(1）的Ｆ４单元格个人收集整理勿做商业用途Shｅｅｔｓ(1).Ranｇe（＂b5"）=Sheets(2）.Raｎｇｅ(＂ｏ" & i）.Vａlｕe‘从Sheeｔs（２)表的O列提取参加工作日期信息，填入Sｈｅets(1)的B5单元格Sheets(１).Range("ｄ5")= Sｈeｅts（2)．Ｒanｇｅ("ｎ" &i).Vａｌｕe‘从Sｈeets（2)表的N列提取入农行日期信息,填入Sheet
6、s(１)的D5单元格Ｓheets（1).Rangｅ（"f5") =Sｈeeｔs(2)．Ranｇe（"f"＆ｉ）.Vａlue‘从Sｈeｅts(2）表的Ｆ列提取参加年金计划日期信息,填入Sheｅts(1）的Ｆ5单元格Shｅets(1）．Range("b7")=Sｈeets(2).Range("ｕ" &i).Valｕe‘从Sｈeets(2)表的U列提取2０08年补缴信息，填入Shｅets（1)的Ｂ7单元格Ｓheetｓ(1).Rangｅ(＂c7")=Sｈｅets(２).Rangｅ（"ｖ"&i）.Ｖalｕe‘从Sheets(2）表的V列提取2０09年补缴信息,填
7、入Ｓhｅets（１）的C7单元格Ｓｈeetｓ(1).Range（"ｄ７") ＝Sheets(2）.Ranｇｅ("w"& i）.Ｖalue‘从Sheｅts（2）表的W列提取2010年补缴信息，填入Sheｅｔｓ（1)的Ｄ7单元格Sheets(1)．Rａｎge("e7")=Sｈeeｔs(２).Ranｇe（"ｘ"& i）.Ｖaｌuｅ‘从Sheets(2）表的Ｘ列提取2０11年补缴信息，填入Sｈeetｓ(1）的Ｅ7单元格Sheets（1）．Range（"f7")= Sheetｓ(2).Raｎgｅ("y"&i).Ｖaｌue‘从Sｈｅets(２)表的Y列提取20０８
8、年补缴信息,填入Sheeｔｓ(1)的Ｆ7单元格 ＡctiveWiｎdｏw．SｅlｅctedSh
