Question

Excel中，添加一个按钮，如何实现打印的同时，单据的编码自动加1.同时也可以保存。

我自制了一个出库单表格，我添加了一个打印的按钮，并且已经实现了打印的同时编号自动加1，但是，退出的时候，需要保存。所以我想这个按钮有三个作用，分别是：自动保存，打印，单据编号自动加1.希望高人可以把VBA的代码给我写出来。

Answer 1

代码中加入一句
ActiveWorkbook.save

追问

以下是我的“打印”按钮的语句：
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

Answer 2

自己录制，保存》打印 复制宏加到你实现加1的那个宏里面，都不用写