【VBAリファレンス】VBAマクロで印刷プレビューを操作する最終講義：実務で差がつくPDF出力と高度なプリンタ制御術

ExcelVBA

2026.09.16

概要

Excel VBAにおける印刷プロセスの自動化は、事務作業の効率化において最も大きなインパクトを与える領域の一つです。本連載の最終回となる第18回では、単純な印刷プレビューの表示から一歩進み、実務レベルで避けては通れない「PDFエクスポート」の自動化と、複数プリンタの使い分け、および印刷設定の厳密な制御について深く掘り下げます。これまでの基礎的なプレビュー操作をマスターした皆様であれば、本稿の内容を習得することで、帳票発行システムに匹敵する高度な出力エンジンを自作できるようになるはずです。

詳細解説

1. 印刷プレビューの限界とPDF出力の必要性

従来の印刷プレビュー（PrintPreviewメソッド）は、ユーザーが手動でプリンタを選択し、印刷ボタンを押すというステップが必須でした。しかし、現代の業務フローでは「電子帳簿保存法」への対応などもあり、紙への印刷ではなく「PDF化」して共有・保存するケースが圧倒的に増えています。VBAではExportAsFixedFormatメソッドを使用することで、プレビューを介さずに高速かつ正確にPDFを生成することが可能です。

2. PDF出力のパラメータを制御する

ExportAsFixedFormatメソッドは強力ですが、単にPDFを出すだけでは不十分です。例えば、「特定のシートのみを抽出したい」「印刷範囲を動的に変更したい」「PDFのプロパティ（タイトルや作成者）を設定したい」といった要求に応える必要があります。特に、印刷設定（PageSetup）と連携させることで、PDFのレイアウト崩れを未然に防ぐテクニックが重要となります。

3. プリンタ制御の自動化

社内に複数のプリンタが存在する場合、どのプリンタにジョブを投げるかをVBAで制御する必要があります。Application.ActivePrinterプロパティを使用しますが、ここで注意すべきは「プリンタ名の記述」です。OSやネットワーク環境に依存してプリンタ名が微妙に変化するため、単純な文字列指定はエラーの温床となります。本稿では、利用可能なプリンタリストを取得し、適切に切り替えるためのエラーハンドリング手法を解説します。

サンプルコード

以下は、印刷設定を最適化した上でPDFを出力し、かつ指定したプリンタへテスト印刷を行う一連のプロシージャです。


Sub AdvancedPrintAndExport()
    Dim ws As Worksheet
    Dim targetPrinter As String
    Dim pdfPath As String
    
    Set ws = ThisWorkbook.Sheets("Report")
    pdfPath = ThisWorkbook.Path & "\出力帳票_" & Format(Date, "yyyymmdd") & ".pdf"
    
    ' 1. 印刷設定の最適化
    With ws.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    
    ' 2. PDFエクスポート
    On Error GoTo PDFError
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    MsgBox "PDF出力が完了しました。"
    
    ' 3. プリンタ切り替えと印刷
    ' 注意: プリンタ名はWindowsの「デバイスとプリンター」表示名に合わせる必要があります
    targetPrinter = "Brother MFC-J6983CDW on Ne03:"
    
    On Error Resume Next
    Application.ActivePrinter = targetPrinter
    If Err.Number <> 0 Then
        MsgBox "指定プリンタが見つかりません。デフォルトプリンタを使用します。"
    End If
    On Error GoTo 0
    
    ws.PrintOut Copies:=1, ActivePrinter:=targetPrinter
    Exit Sub

PDFError:
    MsgBox "PDF出力時にエラーが発生しました: " & Err.Description
End Sub

実務アドバイス

実務における印刷・PDF化の自動化で最も頻発するトラブルは「ページレイアウトの崩れ」です。VBAで印刷を実行する際、現在のActivePrinterが変更されると、Excelがそのプリンタの解像度に合わせて余白や改ページ位置を再計算してしまうことがあります。

これを防ぐための鉄則は「印刷前後の設定保存」です。
1. 印刷前に現在のプリンタ名を保存しておく。
2. 処理終了後に必ず元のプリンタへ戻す。
3. 印刷範囲（PrintArea）を動的に指定する場合、最後に必ずClearPrintAreaを実行し、設定をリセットする。

また、PDF出力時には「OpenAfterPublish:=True」と設定すると、処理直後にPDFが開かれます。デバッグ時には非常に便利ですが、大量の帳票を一括出力する際はFalseにしないと、PCがPDFビューアだらけになりクラッシュする原因となるため注意が必要です。

まとめ

第18回にわたり、VBAによる印刷プレビュー操作からPDF出力までを網羅的に解説してきました。印刷という機能は、一見地味な「最後の仕上げ」のように思われがちです。しかし、帳票の美しさ、正確なPDFアーカイブ、そしてミスを許さないプリンタ制御は、プロのエンジニアが作成するツールにおいて「信頼性」を担保する決定的な要素となります。

皆様が作成したマクロが、単に動くだけでなく、ユーザーにとって「確実で心地よい出力結果」をもたらすものになることを願っています。VBAの学習に終わりはありません。次は、これらの機能をアドイン化し、他のブックからも横断的に利用できる仕組みづくりに挑戦してみてください。

本連載が、皆様の業務効率化における強力な武器となることを確信しています。最後までお付き合いいただき、誠にありがとうございました。次なるステップへの飛躍を応援しています。