Sub 印刷実行() Dim 部数 As Integer Dim i As Integer ' ユーザーから印刷部数を入力 部数 = InputBox("印刷部数は何枚にしますか？", "印刷部数入力") ' キャンセルボタンが押された場合は終了 If 部数 = 0 Then Exit Sub ' 指定された枚数分だけ印刷を実…