我如何创build一个VBA代码来打印同一个表单的多个副本？

我在excel中有一个button，我希望它打印X份的副本。 就像说10，所以项目进入库存。 我想打印10份。 我有公式，查找项目信息。 我只想要一个代码，打印这么多次的“数量”，我会填写。

Answer 1

ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").Value 

Answer 2

从本质上讲..

 Sub PrintXCopies() ActiveSheet.PrintOut , , Range("A1").Value End Sub 

要打印的份数在单元格A1中。 如果这不是一个数字或一个合理的数字，你应该添加error handling。 就像是：

 Sub PrintXCopies() If IsNumeric(Range("A1").Value) Then If Range("A1").Value >= 1 And Range("A1").Value < 10 Then ActiveSheet.PrintOut , , Range("A1").Value End If End If End Sub