接触到很多表格,比如入职申请表、劳动合同等,每个表格都用唯一的编号,如果需要一百份,手动的工作量真的是超级大,本文通过VB语句在excel实现这个功能
工具/原料
excel
方法/步骤
1、建立编号列表
2、用公式VLOOKUP把编号链接到表格中
3、设置打印开始编号和结束编号
4、打开V幞洼踉残B编辑器,复制以下代码Sub打印物料维护单()[AR5]=[AR5]-1Range("AR6"像粜杵泳).SelectApplication.ActivePrinter="FXDocuprintM205f-00000在Ne02:"ExecuteExcel4Macro"PRINT(1,,,1,,,,,,,,2,""FXDocuprintM205f-00000在Ne02:"",,TRUE,,FALSE)"EndSubSub循环()AAA=Range("AR4")DimiAsLongDimtimesAsLongtimes=AAA'times代表循环次数,执行前把times赋值即可(不可小于1,不可大于2147483647)Fori=1TotimesCall打印物料维护单NextiEndSub
5、插入命令按钮,指定宏名
6、点击命令按钮开始批量打印