プリンタポートの取得の仕方 (ID:85419)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 プリンタのプロパティに表示されているポートの名前が 内部的にはNe02というポートを使用しているだけのことです。 何かプリンタのポートを指定しなければならないコマンドを 使用する場合、Ne02を指定してやれば問題なく動作します。 WMIを使用するとご希望の名前が得られますがVBのPrinterオブジェクトで このポート名を指定して動作するかどうかは検証していません。 Dim strComputer As String Dim objWMIService As Object Dim colInstalledPrinters As Object Dim objPrinter As Object strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer") For Each objPrinter In colInstalledPrinters Debug.Print "Name: " & objPrinter.Name Debug.Print "PortName: " & objPrinter.PortName Next