excel,怎样写宏让每打印一份编号加1

Question

相同的文档，每打印一张左上角的编号增加1

Answer 1

在表格中加 一个按钮，编号在A1，编号共15位，左9字符是不变的，右6个数字每次按钮打印后加1 。程序如下：

Sub A1编号打印后加一_Click() 
    Number = [A1] 
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ 
        :=True 
    [A1] = Left(Number, 9) & Format(Right(Number, 6) + 1, "000000") 
End Sub

追问

每打印一张就要按一次按钮吗？

Answer 2

做个打印按钮来打印，不要用系统的打印是可以的