VBAでアクティブのプリンター名(とポート名)を取得する。 Sub ShowCurrentPrinterName()MsgBox "現在使用しているプリンターは、" & _ Application.ActivePrinter _ & " です。", Title:="現在使用しているプリンターの表示"End Sub