通常使うプリンタ(アクティブプリンタ)を取得/設定する【ActivePrinterプロパティ】【ExcelVBA】

印刷前に印刷するプリンタを取得/設定したいケースがあります。
ActivePrinterプロパティで通常使うプリンタの情報を取得や設定が可能です。

通常使うプリンタ(アクティブプリンタ)を取得/設定するサンプルコード
注意点
関連記事

通常使うプリンタ(アクティブプリンタ)を取得/設定するサンプルコード

Public Sub sample()

    '■通常使うプリンタを取得
    Debug.Print Application.ActivePrinter   'Canon TS8230 series on Ne03:

    '■通常使うプリンタを変更(プリンタ名で設定)
    Application.ActivePrinter = "Microsoft Print to PDF on Ne01:"

    '■通常使うプリンタを変更(IPで設定)
    Application.ActivePrinter = "\\http://192.168.1.100/"
End Sub