■

Sub 印刷実行()
Dim 部数 As Integer
Dim i As Integer

' ユーザーから印刷部数を入力
部数 = InputBox("印刷部数は何枚にしますか？", "印刷部数入力")

' キャンセルボタンが押された場合は終了
If 部数 = 0 Then Exit Sub

' 指定された枚数分だけ印刷を実行
For i = 1 To 部数
' ここに印刷のコードを追加
' 例えば、ActiveSheet.PrintOut でアクティブシートを印刷できます
' 他のオブジェクトを印刷したい場合、適切なオブジェクトを指定してください
Next i

' 印刷が完了したことを通知
MsgBox 部数 & "枚の印刷が完了しました。", vbInformation, "印刷完了"

End Sub