如何创建VBA代码以打印同一张纸的多个副本？

Question

我在excel中有一个按钮，我希望它能够打印X份的副本。像Say 10这样的物品进入库存。我要打印10份。我有查找项目信息的公式。我只想要一个代码，打印这么多次，我将填写“数量”。

Answer 1

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

Answer 2

基本上..

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

其中要打印的份数在单元格A1中。如果这不是数字或合理的数字，您应该添加错误处理。类似的东西：

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