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

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

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

2024-11-12 06:59:51

推荐回答（1个）

回答（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