Office TANAKA - Excel VBA Tips[Excelの組み込みダイアログを表示する]たとえば、あなたがあるマクロを作ったとします。それは、何らかの処理をした後で、ワークシートを印刷するようなマクロです。処理から印刷までをプログラミングして完成しました。ところが、ユーザーからある要望が……。 「印刷する時さ、そのつど部数を指定できるようにしてくれない？」 印刷を実行するPrintOutメソッドは、引数Copiesに印刷部数を指定できます。AcriveSheet.PrintOut Copies:=2 とすれば2部印刷されます。ここはInputBoxを使って、 Sub Sample1() Dim n As Long n = Val(InputBox("印刷部数を入力してください")) If n < 1 Then Exit Sub ActiveSheet.PrintOut Copies:=n End Sub よしOKだ…と動作確認していたら電話が……。 「あのさ、印刷ページも指定
