一般这样的打印有一些地方需要变更，可以先做一个列表，做上编号。
查看代码中添加一下代码，表格中做如下设置配合下面的代码。可以调整为你需要的。
下面
I11，目前编号
I12，开始编号
I13，结束编号
具体你可以再琢磨一下。
Sub 批量打印_单击()
If [i12] > [i13] Then
MsgBox "开始序号大于结束序号请检查"
Else
For i = [i12] To [i13]
[i11] = i
ActiveSheet.PrintOut Copies:=1
Next i
End If
End Sub
我也是网上找的，很好用。
你还不如装个 按键精灵???
这样来得更简单嘛
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024