1、建立编号列表
2、用公式VLOOKUP把编号链接到表格中
3、设置打印开始编号和结束编号
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、插入命令按钮,指定宏名
6、点击命令按钮开始批量打印