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

Question

我在excel中有一个按钮，希望它打印X份。 就像说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