接触到很多表格，比如入职申请表、劳动合同等，每个表格都用唯一的编号，如果需要一百份，手动的工作量真的是超级大，本文通过VB语句在excel实现这个功能
工具/原料
excel
方法/步骤
1
1、建立编号列表
2
2、用公式VLOOKUP把编号链接到表格中
3
3、设置打印开始编号和结束编号
4
4、打开VB编辑器，复制以下代码Sub 打印物料维护单()[AR5] = [AR5] - 1Range('AR6').Select Application.ActivePrinter = 'FX Docuprint M205 f-00000 在 Ne02:' ExecuteExcel4Macro 'PRINT(1,,,1,,,,,,,,2,''FX Docuprint M205 f-00000 在 Ne02:'',,TRUE,,FALSE)'End SubSub 循环()AAA = Range('AR4')Dim i As LongDim times As Longtimes = AAA 'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 打印物料维护单Next iEnd Sub
5
5、插入命令按钮，指定宏名
6
6、点击命令按钮开始批量打印
注意事项
1
每部电脑的打印机不一样，可以通过录制宏做一次打印选择，然后替换以下代码 Application.ActivePrinter = 'FX Docuprint M205 f-00000 在 Ne02:' ExecuteExcel4Macro 'PRINT(1,,,1,,,,,,,,2,''FX Docuprint M205 f-00000 在 Ne02:'',,TRUE,,FALSE)'
2
代码中的AR5是链接编号，AR4是循环次数，如果变动单元格，记得修改