MS Excel 2007：如何在每次打印输出后增加单元格中的数字

Question

我正在打印一份 Excel 文件，说是 100 份。

我有一个像 "Copy No : "0001"

这样的字段

我需要在每次打印输出后增加此数字，以便每张打印件都有一个副本编号：0002，副本编号：0003.....副本编号..0100

我的意思是说当我给出打印作业并将其设置为 100 份时，所述数字应该递增并自动打印。

这可以使用宏或一些公式吗？？ :)

Answer 1

您可以使用以下宏：

Sub PrintIncrement()   

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   
   Dim num As Integer   
   Range("A1").Select   
   num = Range("A1").Value   
   num = num + 1   
   Range("A1").Value = num   

End Sub

如果有问题告诉我

Answer 2

感谢 John Bustos 的原始代码，添加了一些并且它有效

Sub PrintIncrement()

   Let x = 0
   Do While x < 100
   ActiveWindow.SelectedSheets.PrintOut Copies:=100, Collate:=True
   Dim num As Integer
   Range("L10").Select
   num = Range("L10").Value
   num = num + 1
   Range("L10").Value = num
   x = x + 1
   Loop

End Sub

MS Excel 2007：如何在每次打印输出后增加单元格中的数字

MS Excel 2007 : How do I increase number in a cell after every printout

excel

excel-formula

excel-2007