ExcelVBA 特定のプリンターを指定してシートやブックを印刷する基本コード

以下のようなシーンで利用されます。

1. 特定のプリンターに直接出力する
   • 部署ごとに異なるプリンターを使う場合や、大量印刷を効率化したい
2. 印刷ジョブを自動化
   • 定期的に決まった内容を印刷するシステムの構築
3. エラー防止
   • プリンターの選択ミスを防ぎ、作業効率を向上

Excel VBA 特定プリンター指定｜使い方とポイント

Option Explicit

Sub GetCurrentPrinter()
    MsgBox "現在のプリンター: " & Application.ActivePrinter
End Sub

特定のプリンターを設定して印刷

1. 現在使っているプリンターをいったん別の箱に保存
2. 一時的に使いたいプリンターを指定
3. 2で指定したプリンターにする
4. 一時的に指定したプリンターがない場合は、エラーメッセージ表示後終了
5. 印刷する
6. 別の箱に入れた、元々使っていたプリンターに戻す。

大きくは下記の流れ

Option Explicit

Sub SetPrinterAndPrint()
    Dim targetPrinter As String
    Dim currentPrinter As String

    ' 現在のプリンターを保存
    currentPrinter = Application.ActivePrinter

    ' 設定したいプリンター名
    targetPrinter = "Microsoft Print to PDF on Ne01:"

    ' プリンターを設定
    On Error Resume Next
    Application.ActivePrinter = targetPrinter
    If Err.Number <> 0 Then
        MsgBox "指定したプリンターが見つかりません。"
        Exit Sub
    End If
    On Error GoTo 0

    ' 印刷実行（例: アクティブシートを印刷）
    ActiveSheet.PrintOut

    ' 元のプリンターに戻す
    Application.ActivePrinter = currentPrinter
End Sub

プリンター名を確認するには、Application.ActivePrinter を取得して、正確な名前を調べておくとよいです。ネットワークプリンターでは、プリンター名に接続ポート（例: on Ne02:）が含まれる場合があります。プリンターが見つからない場合にエラーメッセージを表示して処理を中断する仕組みを追加しましょう。

これを使えば、作業の効率化と印刷エラーの削減が可能です。