【入門編】【印刷設定の完全自動化】”Presentation.PrintOut”の引数を極める：配布資料印刷、カラー・白黒指定、プリンタ切り替えのVBA制御 – PowerPoint VBA解析バイブル

こんにちは！PowerPoint VBAの世界へようこそ。
日々、大量のプレゼン資料を印刷したり、会議の前に「あれ、この資料はカラーだっけ？白黒だっけ？」「配布資料形式はどうするんだっけ？」とプリンタの設定画面と格闘していませんか？

マクロの記録を使えばコードの形は見えますが、PowerPointの印刷機能（`PrintOut`メソッド）は、WordやExcelとは一味違う独特のクセがあります。特に「ノート付きの配布資料を白黒で特定のプリンタから出す」といった実務でよくある要望を完全自動化しようとすると、引数の壁にぶつかりがちです。

今回は、プリンタの選定から詳細なレイアウト、カラー・白黒の指定まで、`Presentation.PrintOut`の全パラメータを意のままに操る極限の知見を授けましょう。ここをクリアすれば、あなたも立派なPowerPoint自動化エンジニアです。さあ、一緒に紐解いていきましょう！

—

1. なぜPowerPointの印刷自動化は一筋縄ではいかないのか？

私たちが普段何気なく行っている「印刷」という動作。これをVBAから行おうとすると、PowerPointの心臓部であるオブジェクトモデルのルールに従う必要があります。

ここで重要な前提があります。PowerPointの印刷は、アクティブな（画面に表示されている）プレゼンテーション、あるいは指定したプレゼンテーションオブジェクト（`Presentation`）に対して命令を発行します。

Excelのように「セル範囲を指定して…」という概念はなく、「このファイル（Presentation）を、こういう形式で、あのプリンタに投げ込む！」という一括処理の思想で作られています。だからこそ、設定項目（引数）をコードで完全にコントロールする必要があるのです。

—

2. `PrintOut`メソッドの全貌を暴く

まずは、`PrintOut`メソッドが持つ引数の全体像を確認しましょう。これを知るだけで、マクロの記録頼みだった自分を卒業できます。

expression.PrintOut(From, To, PrintToFile, Collate, PrinterName, PrintWhat, ColorType, Framing, Hidden, HandoutsOrder, NumberOfCopies)

主な引数を一覧化しました。ここが今回のキモになります。

—

3. 実践！「ノート付き配布資料・白黒・特定プリンタ」自動印刷スクリプト

それでは、実務で最も需要が高い「3スライド（ノート付き）形式で、白黒（モノクロ）指定にし、特定のネットワークプリンタへ出力する」完全版のコードをお見せします。

開発タブのVBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてみてください。

Sub PrintPresentationAdvanced()
Dim targetPres As Presentation
Set targetPres = ActivePresentation ‘ 現在開いているプレゼンテーションを対象とする

On Error GoTo ErrorHandler

‘ ==========================================
‘ 設定エリア（環境に合わせて書き換えてください）
‘ ==========================================
Dim printerName As String
printerName = “\\ServerName\Office-Printer-01” ‘ 出力したいプリンタのネットワーク名

Dim copiesCount As Long
copiesCount = 1 ‘ 印刷部数

‘ ==========================================
‘ PrintOutメソッドによる印刷実行
‘ ==========================================
targetPres.PrintOut _
From:=1, _
To:=targetPres.Slides.Count, _
PrinterName:=printerName, _
PrintWhat:=ppPrintOutputBuildSlides, _ ‘ ※注：後述の定数解説を参照
ColorType:=ppPrintBlackAndWhite, _ ‘ 白黒印刷を指定
Collate:=msoTriStateTrue, _ ‘ ページ単位で部単位印刷（部単位でまとめる）
NumberOfCopies:=copiesCount

MsgBox “印刷ジョブの送信が正常に完了しました。”, vbInformation, “自動印刷完了”
Exit Sub

ErrorHandler:
MsgBox “印刷処理中にエラーが発生しました。” & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “エラー”
End Sub

コードの深掘りポイント

1. `PrintWhat`（印刷形式の指定）

`ppPrintOutputSlides`: スライドのみ（1ページに1枚）
`ppPrintOutputBuildSlides`: 配布資料（ノート付きの3スライド形式など、PowerPoint側のビュー設定に依存）
配布資料のレイアウト（1ページに何枚スライドを並べるかなど）は、事前にPowerPointの「印刷プレビュー」や「マスター」側でテンプレートとして保持されている状態が適用されます。

2. `ColorType`（カラー・白黒の指定）

`ppPrintColor`: カラー
`ppPrintGrayScale`: グレースケール（濃淡のある灰色）
`ppPrintBlackAndWhite`: 純粋な白黒（モノクロ。インク節約や社内ニッチな資料に最適）

—

4. 現場でよくある「ハマりどころ」と解決策

ここをクリアすればPowerPoint VBAの基本はバッチリですが、現場ではよくあるトラップが存在します。先輩からのアドバイスとして受け取ってください。

トラップ1：プリンタ名（`PrinterName`）が通らない

原因: Windowsの「デバイスとプリンター」に表示されている名前と、VBAが要求する名前が微妙に違うケース（特にネットワークプリンタやPDF出力ソフトなど）。
対策: 正確なプリンタ名を取得するには、コントロールパネルからプロパティを開くか、一度手動で印刷テストを行った際の正確な文字列（共有名など）をダブルクォーテーションで囲んで指定してください。自信がない場合は、`PrinterName`の引数自体を省略すると「既定のプリンタ」に飛ぶため、まずは省略してテストするのも手です。

トラップ2：ページ指定（`From` / `To`）でエラーになる

原因: プレゼンテーションにスライドが1枚もない状態（あるいは非表示スライドばかり）で実行した場合や、`To`の数字が総スライド数を超えている場合。
スタイリッシュな回避策: サンプルのように `targetPres.Slides.Count` を動的に取得して指定するように組むことで、スライド枚数が変わってもエラーを回避できます。

—

おわりに

今回は、PowerPoint VBAにおける印刷設定の完全自動化について解説しました。
手動で何十冊分もの配布資料の印刷設定をポチポチと変更していた作業が、この数行のコードをボタン一つ（あるいはイベントトリガー）で実行するだけで、一瞬で終わるようになります。

オブジェクトのライフサイクルを意識し、適切な引数を与えてやることで、PowerPointはあなたの最高の忠実な部下になってくれます。ぜひ、日々の業務効率化にこの知見を役立ててくださいね。あなたのVBAライフが、さらに快適なものになることを応援しています！