EXCEL 如何让单元格里的数字等于我要打印的份数 按顺序打印出来

要求exceL表单打印时，打印份数等于A1单元格的数字(整数)。怎么做到。~

Sub print1() '建个按钮指向这个宏
For P = 1 To [A1] '将你要打印的份数填到A1单元格
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

使用这款现成的呀，勾选仅递增打印，选择Excel类型。

这需要一番设置。

其中的递增页码设置为：

AXA1600000&[页码]

可以打印第1~9份；

再去掉一个0：

AXA160000&[页码]

可以打印第10~99份。

这种需要写代码才能处理！自带不行的！