要在Excel打印送货单流水号，每印一次往下流水一个号码，要怎么弄？

Question

每次打印一张，再打印第二张，送货单的流水号码自动加1

Answer 1

Sub 打印()
If MsgBox("确定要打印 发货单？", vbYesNo, "提示") = vbYes Then
Range("A1:I20").Select'打印区域，自己修改
Selection.PrintOut Copies:=1 '
'----------------------假设 需要增加的单号在 I2 单元格
x = Len([i2])
arr = Right([i2], x - 3)
[i2] = ""
[i2] = "N0." & arr + 1
MsgBox "打印完毕"
End If
End Sub