なぜ今、VBAで印刷を制御する必要があるのか？
実務において、レポートや請求書を印刷する際、「毎回同じ設定をダイアログから手作業で選ぶ」のは非常に非効率です。特に、ページ数が多い帳票や、特定のプリンタに出力する必要がある場合、手作業はミス（誤送信や設定間違い）の温床となります。VBAで印刷工程を自動化することで、業務の正確性を高め、ワンクリックで印刷を完結させる仕組みを作ることが可能です。
基礎知識：PrintOutメソッドの仕組み
Excel VBAで印刷を行うには、WorksheetオブジェクトやWorkbookオブジェクトが持つPrintOutメソッドを使用します。このメソッドを使えば、印刷部数、開始ページ、終了ページ、プリンタの選択などをプログラム側で指定できます。GUIの「印刷ダイアログ」を開くことなく、バックグラウンドで処理を完結させられるのが最大のメリットです。
実装：PrintOutメソッドの基本構成
PrintOutメソッドは多くの引数を持ちますが、実務でよく使うのは以下の項目です。
・From / To: 印刷する開始ページと終了ページ
・Copies: 印刷部数
・ActivePrinter: 使用するプリンタ名
・Preview: 印刷プレビューを表示するかどうか
サンプルプログラム：実務で使える印刷自動化コード
以下のコードは、現在アクティブなシートの「1ページ目から3ページ目まで」を「2部」印刷し、さらに「印刷プレビューを表示」する例です。
Sub 自動印刷実行ツール()
‘ エラー回避のため、対象シートを明示的に指定
Dim ws As Worksheet
Set ws = ActiveSheet
‘ 印刷設定の実行
‘ From:開始ページ, To:終了ページ, Copies:部数, Preview:プレビュー表示
On Error Resume Next ‘ プリンタ設定等によるエラーを回避
ws.PrintOut From:=1, To:=3, Copies:=2, Preview:=True
If Err.Number <> 0 Then
MsgBox “印刷中にエラーが発生しました。プリンタを確認してください。”
Else
MsgBox “印刷指示が完了しました。”
End If
On Error GoTo 0
End Sub
応用・注意点：現場で陥りやすい落とし穴
1. プリンタ名の指定に注意
ActivePrinter引数でプリンタ名を指定する場合、正確な文字列（例: “EPSON EP-800 Series”）が必要です。環境によって名称が変わる可能性があるため、特定のプリンタへ強制的に出力したい場合は、事前に Application.ActivePrinter の値を確認しておく必要があります。
2. プレビューの重要性
PrintOutメソッドのPreviewをTrueにすると、印刷前に確認画面が出ます。実務ではいきなり出力するのではなく、一度プレビューを挟むことで、意図しない改ページやレイアウト崩れによる紙の無駄を防ぐことができます。
3. 印刷範囲の調整
VBAで印刷する前に、必ず「印刷範囲（PageSetup.PrintArea）」をプログラム内で再定義する癖をつけましょう。これにより、データ量が変わっても常に適切な範囲が印刷されるようになります。
VBAによる印刷制御は、地味ながらも「毎日数分、年間で数時間」の削減につながる非常に効果的な自動化です。まずは上記のコードをベースに、ご自身の業務環境に合わせてカスタマイズしてみてください。
