1、建立编号列表

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

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

4、打开VB编辑器，复制以下代码

Sub 打印物料维护单()

= - 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、点击命令按钮开始批量打印

每部电脑的打印机不一样，可以通过录制宏做一次打印选择，然后替换以下代码 Application.ActivePrinter = FX Docuprint M205 f-00000 在 Ne02: ExecuteExcel4Macro PRINT(1,,,1,,,,,,,,2,FX Docuprint M205 f-00000 在 Ne02:,,TRUE,,FALSE)

代码中的AR5是链接编号，AR4是循环次数，如果变动单元格，记得修改