如何創建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