ExcelVBA 特定プリンターを指定してExcelシートやワークブックを印刷

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

1.特定のプリンターに直接出力する
部署ごとに異なるプリンターを使う場合や、大量印刷を効率化したい

2.印刷ジョブを自動化
定期的に決まった内容を印刷するシステムの構築

3.エラー防止
プリンターの選択ミスを防ぎ、作業効率を向上

Option Explicit

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

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

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:）が含まれる場合があります。プリンターが見つからない場合にエラーメッセージを表示して処理を中断する仕組みを追加しましょう。

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