1、建立编号列表

2、用公式VLOOKUP把编号链接到表格中

3、设置打印开始编号和结束编号

4、打开VB编辑器,复制以下代码
Sub 打印物料维护单()
[AR5] = [AR5] - 1
Range("AR6").Select
Application.ActivePrinter = "FX Docuprint M205 f-00000 在 Ne02:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""FX Docuprint M205 f-00000 在 Ne02:"",,TRUE,,FALSE)"
End Sub
Sub 循环()
AAA = Range("AR4")
Dim i As Long
Dim times As Long
times = AAA
'times代表循环次数,执行前把times赋值即可(不可小于1,不可大于2147483647)
For i = 1 To times
Call 打印物料维护单
Next i
End Sub

5、插入命令按钮,指定宏名

6、点击命令按钮开始批量打印