Sub PrintWithUserInput() Dim PrintCount As Long ' 印刷部数を入力させるメッセージを表示 PrintCount = InputBox("印刷する部数を入力してください", "印刷部数", 1) ' 入力された値で印刷を実行 If PrintCount > 0 Then ' プリンタの設定 Application.Di…