excel - 同じシートの複数のコピーを印刷する 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