我自制了一个出库单表格,我添加了一个打印的按钮,并且已经实现了打印的同时编号自动加1,但是,退出的时候,需要保存。所以我想这个按钮有三个作用,分别是:自动保存,打印,单据编号自动加1.希望高人可以把VBA的代码给我写出来。
以下是我的“打印”按钮的语句:
Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("k2"))
s = s + 1
Range("k2") = Right("00001" & s, 7)
End Sub
请问在哪里加?
Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("k2"))
s = s + 1
Range("k2") = Right("00001" & s, 7)
ActiveWorkbook.save
End Sub