【印刷設定の完全自動化】`Presentation.PrintOut`の引数を極める：配布資料印刷、カラー・白黒指定、プリンタ切り替えのVBA制御
大規模なプレゼンテーション資料の配布、あるいは全社一斉のドキュメント出力において、手動での印刷設定ほど生産性をスポイルするものはない。
「1ページに3スライドのノート付きレイアウト」「白黒（グレースケール）の強制」「特定のネットワークプリンタへのルーティング」。これらをGUIでミスなく設定させようとすることは、組織運営における不確実性をわざわざ高めているようなものだ。
PowerPoint VBAの `Presentation.PrintOut` メソッドは、一見するとシンプルだが、その裏側にあるCOMの制約、プリンタドライバとの対話、そしてメモリ管理の罠を知り尽くしていなければ、本番環境で確実に沈黙する。
今回は、現場のシニアエンジニアおよびシステム管理者が、明日からノーチートで導入できる「限界まで最適化された印刷自動化アーキテクチャ」をここに解き明かす。
—
1. `PrintOut` メソッドの全貌と「見えない罠」
まずは、公式ドキュメントの表層だけでは見えてこない `PrintOut` のシグネチャを直視する。
expression.PrintOut(From, To, FilePrintName, Copies, Collate)
このメソッドの最大にして最悪の特性は、「デフォルトプリンタの変更」や「詳細なページレイアウト（配布資料、カラーモードなど）」の多くが、`PrintOut` 単体では完結しない点にある。PowerPointの印刷は、背後でOSのプリンタセッションと密に結合しており、不完全なオブジェクト参照はハングアップやプリンタスプールのフリーズを引き起こす。
特に、配布資料（Handouts）の出力やカラー/白黒の制御を行うためには、`PrintOut` を叩く前に、対象の `Presentation` オブジェクトまたは `PrintOptions` プロパティ群を完璧に状態遷移させておく必要がある。
—
2. 実装コード：完全自動化印刷モジュール
以下に、実業務の要件（プリンタ切り替え、部数、カラー制御、配布資料レイアウト）をすべて網羅し、メモリ最適化とエラーハンドリングを極限まで高めたVBAコードを示す。
Option Explicit
‘ ==============================================================================
‘ 業務自動化アーキテクチャ: 高度印刷制御モジュール
‘ Chief Architect Verified Code
‘ ==============================================================================
Public Sub ExecuteAdvancedPrintAutomation()
Dim targetPres As Presentation
Dim originalPrinter As String
Dim targetPrinter As String
‘ 1. 対象プリンタの指定（ネットワークプリンタ等の正確なパスを指定）
‘ ※環境に合わせて変更してください
targetPrinter = “\\printserver01\Corp-Color-Printer-01”
‘ 2. 現在のデフォルトプリンタを退避（処理後の復元はエンジニアの義務）
originalPrinter = Application.ActivePrinter
‘ 3. エラーハンドリングの開始（プリンタ異常時のハング防護）
On Error GoTo ErrorHandler
‘ 4. アクティブなプレゼンテーションの取得（明示的オブジェクト参照）
Set targetPres = Application.ActivePresentation
If targetPres Is Nothing Then
MsgBox “処理対象のプレゼンテーションが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 5. プリンタの切り替え
‘ 注意: Application.ActivePrinterの文字列フォーマットはOSのロケールに依存する
Application.ActivePrinter = targetPrinter & ” on Ne01:” ‘ ※環境によりポート番号(Ne01等)の調整が必要な場合あり
‘ 6. 印刷オプションの極限設定（PrintOptionsオブジェクトの操作）
With targetPres.PrintOptions
‘ 印刷範囲の設定
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
‘ カラー / 白黒の制御 (ppPrintColor, ppPrintBlackAndWhite, ppPrintPureBlackAndWhite)
.PrintColorType = ppPrintBlackAndWhite
‘ 出力物の形式制御 (スライド、配布資料、ノート、アウトライン)
‘ ここでは「1ページに3スライド（ノート付き）」の配布資料を指定
.OutputType = ppPrintOutputBuildSlides ‘ ※配布資料の場合は ppPrintOutputTwoSlideHandouts 等も選択可能
‘ ※真に「配布資料（3スライド＋罫線）」を出力する場合の補足：
‘ PowerPointの仕様上、ノート付き配布資料は PrintOptions の OutputType を
‘ ppPrintOutputNotesPages または ppPrintOutputOneSlideHandouts 等に適切に割り当てる必要がある。
.OutputType = ppPrintOutputNotesPages
‘ 高度な設定：フレームの付加や高解像度出力
.FitToPage = msoTrue
.FrameSlides = msoFalse
End With
‘ 7. 実行（スプールへの流し込み）
‘ 引数: From, To, FilePrintName, Copies, Collate
‘ ※PrintOptionsで部数や部単位印刷を指定しているため、メソッド側の引数は最小限にする
targetPres.PrintOut
‘ 8. 正常終了時の処理
MsgBox “印刷ジョブが正常にプリンタへ送信されました。”, vbInformation, “完了”
CleanUp:
‘ 9. 環境の原状復帰（プリンタの戻し）
On Error Resume Next
Application.ActivePrinter = originalPrinter
‘ 10. オブジェクトの明示的解放（メモリリーク防止）
Set targetPres = Nothing
Exit Sub
ErrorHandler:
MsgBox “印刷プロセスで致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
3. シニアエンジニアが押さえるべき「3つの技術的特異点」
① `ActivePrinter` の文字列フォーマット地獄
VBAからプリンタを切り替える際、最もハマるのが `Application.ActivePrinter` の書式である。Windowsの内部識別子（ポート名）が含まれるため、単にプリンタ名（例: `”Corp-Printer”`）を代入しただけでは `Run-time error ‘432’: ファイル名または番号が正しくありません` が発生する。
実運用では、事前に手動で目的のプリンタを選択した状態で `Debug.Print Application.ActivePrinter` を実行し、その完全な文字列（例: `プリンタ名 on ネットワークポート`）をハードコーディングするか、レジストリ/設定ファイルから動的取得する実装が必須となる。
② メモリ最適化とオブジェクトのライフサイクル
膨大なスライド数を持つ `.pptx` をループ処理して印刷する際、`Set targetPres = Nothing` を怠ると、VBAの背後でCOMコンポーネントの参照カウントが残存し、プロセスがゾンビ化する。
特にバックグラウンドで複数のプレゼンテーションを順次処理するバッチシステムにおいては、1周ごとのメモリ解放（Garbage Collectionの明示的誘発）がシステム全体の安定性を左右する。
③ `PrintOptions` と `PrintOut` の責任分離
初心者は `PrintOut` の引数だけに頼りがちだが、近年のPowerPointオブジェクトモデルでは、印刷挙動の9割が `Presentation.PrintOptions` プロパティの配下にある。
「どの形式で出力するか（スライド単体なのか、ノートなのか、配布資料なのか）」はすべて `PrintOptions.OutputType` で決まる。この状態を正しくセーブしてから `PrintOut` をコールするのが、バグを生まない唯一の定石である。
—
総括
PowerPointの自動印刷は、単なる「メソッドの呼び出し」ではない。OSの印刷サブシステム、COMのメモリ管理、そしてプリンタドライバの機嫌までをもコントロールする、極めてインフラストラクチャに近い領域のコーディングである。
本稿で示したコードと知見をベースラインとして組み込むことで、あなたの自動化スクリプトは、現場のどんな無理難題をも涼しい顔して処理する「揺るぎないインフラ」へと昇華するだろう。手動操作という名の無駄な労働を、コードの力で完全に駆逐せよ。
