【印刷設定の完全自動化】Presentation.PrintOutを極める：配布資料・カラー・プリンタ切替のVBA制御
開発プロジェクトの現場において、「PowerPointの印刷」ほど属人化し、ヒューマンエラーの温床になる作業はない。
「3スライドのノート付きで印刷してしまった」「カラー厳禁の機密資料をカラーで出力してしまった」「デフォルト以外のプリンタを指定し忘れた」――こうした笑えないミスを根絶し、完全自動化を達成するのが本稿の目的である。
PowerPoint VBAの `Presentation.PrintOut` メソッドは、一見するとシンプルだが、その引数の裏にあるオブジェクトモデルの挙動やWindowsスプーラとの対話を理解していないと、実務で使い物にならない。
今回は、現場のプロが迷わず導入でき、かつ絶対に破綻しない「堅牢な印刷自動化スクリプト」の全貌をロジカルに解説しよう。
—
1. なぜ「手動印刷」や「安易なVBA」は現場で破綻するのか？
多くのエンジニアが最初に書く `PrintOut` のコードはこうだ：
‘ 【アンチパターン】これでは実務で必ず事故が起きる
ActivePresentation.PrintOut
このコードが抱える致命的な問題は以下の3点である。
1. プリンタの不確実性: デフォルトプリンタに依存するため、PC環境が変わった瞬間に意図しない出力先へ飛ぶ。
2. レイアウトの欠落: 配布資料形式（3スライド＋ノート欄など）やカラー設定の指定が抜けており、結局手動で設定し直す羽目になる。
3. エラーハンドリングの欠如: プリンタがオフライン、あるいは用紙切れを起こした場合、VBA側で捕捉できずに処理がフリーズ、またはバックグラウンドでジョブが迷子になる。
プロのアーキテクトが目指すべきは、「どのPC環境で実行しても、プリンタの接続状態を検証し、指定されたレイアウト・カラーモードで正確に出力し切る」コードの構築である。
—
2. `Presentation.PrintOut` メソッドの完全仕様と罠
まずは `PrintOut` メソッドの引数の構造を正確に把握する。公式リファレンスをなぞるだけではなく、「実務で何を指定すべきか」の観点で整理する。
expression.PrintOut(From, To, PrintToFile, Collate, PrinterName, PrintRangeType, SlideShowType, RangeType, HandoutOrder, NumberOfCopies)
実務上、特にコントロールが必須となる主要引数は以下の通りだ：
- `PrinterName`: 出力先プリンタの正確なネットワーク名（またはローカル名）。ここを間違えるとエラーになるため、事前に有効性を検証するロジックが必須。
- `PrintRangeType`: 印刷範囲（全スライド、現在地、指定範囲など）。
- `HandoutOrder` / `PrintOutputType`: （※正確には `PrintOptions` オブジェクト側で設定する）「配布資料（1ページに複数スライド）」「ノート付き」「カラー／モノクロ」といった詳細な出力形式は、`Presentation.PrintOptions` プロパティを事前に構成してから `PrintOut` を叩くのがセオリーである。
—
3. 【プロダクションコード】堅牢な印刷自動化スクリプト
以下に、実務の現場でそのままコピー＆ペーストして使えるプロダクションコードを提示する。
このコードでは、以下の要件を満たしている。
1. 指定したプリンタ名がシステムに存在するか事前チェック。
2. `PrintOptions` を用いて「カラー設定」「配布資料形式（3スライド＋ノート）」を厳密に制御。
3. エラーハンドリングによる安全な終了。
Option Explicit
Public Sub ExecuteRobustPrintAutomation()
‘ =========================================================================
‘ 処理名: プレゼンテーション高精度自動印刷プロシージャ
‘ 概要 : 指定プリンタへ、モノクロ・配布資料（3スライド/ノート付き）で出力する
‘ =========================================================================
‘ — コンフィグレーション —
Const TARGET_PRINTER As String = “1F_Network_Printer_01” ‘ 実際の環境のプリンタ名に変更してください
Dim targetPres As Presentation
Set targetPres = ActivePresentation ‘ または Workbooks.Open 等で指定したプレザンテーション
‘ 1. プリンタの接続確認（存在しないプリンタ指定による実行時エラーを未然に防ぐ）
If Not CheckPrinterExists(TARGET_PRINTER) Then
MsgBox “指定されたプリンタが見つかりません: ” & vbCrLf & TARGET_PRINTER, vbCritical, “印刷エラー”
Exit Sub
End If
‘ 2. エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 3. 印刷オプション（PrintOptions）の構成
With targetPres.PrintOptions
‘ 出力カラーの指定 (ppPrintColor / ppPrintBlackAndWhite / ppPrintPureBlackAndWhite)
.ColorType = ppPrintBlackAndWhite
‘ 部数と部単位印刷
.NumberOfCopies = 1
.Collate = msoTrue
‘ 印刷範囲の設定
.RangeType = ppPrintAll
‘ 【重要】印刷レイアウトの指定
‘ ppPrintOutputBuildSlides (アニメーションごとの分割)
‘ ppPrintOutputHandouts2Slides / 3Slides / 4Slides …
‘ ppPrintOutputNotesPages (ノートページ)
‘ ここでは実務で最も需要の高い「3スライド（横並びノート付き配布資料）」を指定
.OutputType = ppPrintOutputHAndouts3Slides
‘ 配布資料の並び順 (ppPrintHandoutVerticalFirst / ppPrintHandoutHorizontalFirst)
.HandoutOrder = ppPrintHandoutHorizontalFirst
‘ 隠しスライドを印刷するかどうか
.PrintHiddenSlides = msoFalse
‘ フレーム（枠線）をつけるかどうか
.FitToPage = msoTrue ‘ 用紙サイズに合わせる
End With
‘ 4. 印刷実行
‘ 引数: From, To, PrintToFile, Collate, PrinterName, PrintRangeType…
‘ PrinterNameを指定することで、デフォルトプリンタを強制上書きしてジョブを飛ばす
targetPres.PrintOut _
PrinterName:=TARGET_PRINTER
MsgBox “印刷ジョブの送信が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーの捕捉
MsgBox “印刷処理中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ =========================================================================
‘ 補助関数: 指定したプリンタ名がWindows側に存在するか検証する
‘ =========================================================================
Private Function CheckPrinterExists(ByVal printerName As String) As Boolean
Dim wshNetwork As Object
Dim printers As Object
Dim i As Long
Dim found As Boolean
found = False
Set wshNetwork = CreateObject(“WScript.Network”)
Set printers = wshNetwork.EnumPrinterConnections
‘ EnumPrinterConnections は [ポート名, プリンタ名, ポート名, プリンタ名…] の順で格納される
For i = 0 To printers.Count – 1 Step 2
If printers(i + 1) = printerName Then
found = True
Exit For
End If
Next i
CheckPrinterExists = found
End Function
—
4. 現場で使える応用テクニックと保守性の担保
上記のコードを基盤として、さらに大規模な業務システムやファイルサーバー連携へ拡張する際の知見を授ける。
① データベースやExcelリストからの「一括バッチ印刷」
もし複数の異なるプレゼンテーションファイルを連続して自動印刷する必要がある場合、`ActivePresentation` に頼るのではなく、ファイルを非表示（`Visible = msoFalse`）で開き、個別に `PrintOut` を実行して即座に閉じる（`Close`）ライフサイクル管理が必要になる。
Dim p As Presentation
Set p = Presentations.Open(FileName:=”C:\Data\Report_202X.pptx”, WithWindow:=msoFalse)
p.PrintOut PrinterName:=”TargetPrinter”
p.Close
これにより、画面のちらつき（スクリーンのきらめき）を完全に排除し、バックグラウンドで高速かつセキュアに印刷処理を完結させることができる。
② プリンタ名変更への耐性（設定の外部化）
ハードコーディングされたプリンタ名をVBAコード内に直書きするのは、保守性の観点から御法度である。本番環境の変更に備え、同一フォルダ内の `config.ini` や、同じブック内の「設定」シートからセル値として動的に読み込む設計を取り入れるべきだ。
—
総括
PowerPointの自動印刷は、単なるメソッドの呼び出しではなく、「プリンタ環境の検証」「PrintOptionsによる厳密なレイアウト制御」「エラーハンドリング」という3つの防壁があって初めて実務の武器となる。
今回提供したコードベースをあなたのプロジェクトに組み込み、手作業による印刷ミスと無駄な工数を永久に排除してほしい。真に自動化された環境の構築こそが、エンジニアの最大のバリューである。
