VBAで印刷枚数を指定して印刷する方法

エクセルで作成した様々な文書や表などを印刷しますが、ボタン1回押したら自動的に印刷範囲を指定して印刷できると時間節約できて効率的ですよね。

だけど、印刷枚数だけが毎回異なるので印刷枚数を指定して印刷できるようになるともっと便利なので、ユーザーフォームを使って印刷画面を作っちゃいましょう。
スポンサーリンク

Excel-VBAで印刷

ワークシートをExcel-VBAを使用して印刷するにはPrintOutメソッドを使います。

まずは基本的なExcel-VBAを使用した印刷方法を押さえておきましょう。

いつものようにユーザーフォームに配置したコマンドボタンを押すと印刷するようにコードを書いています。

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

コマンドボタン（CommandButton1）を押すと
選択しているワークシート（表示しているシート）を印刷、1ページ目から1ページ目で枚数は1部（1枚）、部単位を指定
マクロ終了

これで表示しているワークシート（ActiveWindow.SelectedSheets）を印刷するのですが、1ページ目を1枚印刷するコードです。印刷ページや枚数は自由に設定できます。

From・・・開始ページ
To・・・・終了ページ
Copies・・印刷部数（印刷枚数）
Collate・・部単位指定（True）

ちなみに、ここでは表示しているワークシートでユーザーフォームを使用していますが、別のシート（表示していないシート）を指定して印刷することもできます。

この場合、「ActiveWindow.SelectedSheets」の部分を「Worksheets(“Sheet1”).Activate」に変更すると、Sheet1を指定して印刷できます。

印刷枚数を指定して印刷

それでは基本的なExcel-VBAでの印刷はできるようになりましたが、コードに印刷枚数を指定している（Copies:=1）ので、常に設定した枚数しか印刷されません。

印刷するたびに枚数が異なる時などは、この（Copies:=1）を簡単に変更できると便利なのです。

そこで、ユーザーフォームを使いテキストボックスに入力された数字（枚数）を読み込んで、コマンドボタンで印刷を実行するようにしましょう。

Private Sub CommandButton1_Click()
If TextBox1.Value = “” Then
MsgBox “印刷枚数を入力してください”
Else
Worksheets(“Sheet1”).Activate
Select Case TextBox1
Case Is = 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
Case Is = 2
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=2, Collate:=True
Case Is = 3
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=3, Collate:=True
End Select
End If
End Sub

ユーザーフォームに配置されたコマンドボタン（CommandButton1）を押したら
もしテキストボックス（TextBox1）が空欄だったら
メッセージ「印刷枚数を入力してください」を表示する
そうでない場合（入力されている場合）
ワークシート【Sheet1】を選択
テキストボックス（TextBox1）の値により処理を分岐させるSelect Caseステートメントを使用する
テキストボックスの値が1の場合
表示されているシートを1ページ目から2ページ目を1枚、部単位で印刷
テキストボックスの値が2の場合
表示されているシートを1ページ目から2ページ目を2枚、部単位で印刷
テキストボックスの値が3の場合
表示されているシートを1ページ目から2ページ目を3枚、部単位で印刷
Select Caseステートメント終了
Ifステートメント終了
マクロ終了

このようにSelect Caseステートメントを使用すると上記記載した印刷枚数3枚までではなく10枚でも30枚でも書き続ければ可能なので、印刷したい時に必要印刷枚数が異なる場合でも、必要枚数が印刷できるので便利ですね。

各コントロールまとめて転記シリーズ

ユーザーフォームを使うと配置したコントロール（テキストボックスやラベルなど）とセルとの間で値のやり取りが多くなります。

よく使うのでまとめてみました。

値の場所	転記したい場所	説明ページ
セルの値	ラベル名	VBAコード
セルの値	テキストボックスの値	VBAコード
セルの値	コマンドボタンの表示名	VBAコード
セルの値	セルの値	VBAコード
テキストボックス入力値	セルの値	VBAコード