プリンタ マクロ Ne○○

質問

エクセルマクロで「プリンター名　on　Ne○○」○○の数字をマクロで調べることは可能でしょうか。
他のサイトで調べてみました。
Sub Saaample()
Dim tempShell As Object
Dim tempObj As Object
Dim intRow As Integer
Set tempShell = CreateObject("Shell.Application")
intRow = 1
For Each tempObj In tempShell.Namespace(4).Items
If intRow > 1 Then
Cells(intRow, 1) = tempObj.Name
End If
intRow = intRow + 1
Next
Set tempShell = Nothing
End Sub
で実行するとプリンター名は取得できるのですが「Ne○○」まではできませんでした。
プリンターの増減で「Ne○○」が変わってしまうのでその都度修正するのですが
調べ方がわからず上か下の数字に変更して対処してます。

　　　　　　　　　　　　　　　　　　　宜しくお願いいたします。

回答No.2

mitarashi · ベストアンサー

昔調べたものです。

１．WMIを用いる方法
https://okwave.jp/qa/q8506137.html

２．APIでレジストリから取得する方法
質問のタイトルからは読み取れませんが、#1さんのコード中にあります。
https://okwave.jp/qa/q7291461.html

下記も同様ですが、小生が最初に参考にしたものです。簡略化したコードで試してみましたが、xl2010(32bit)、Win7(64bit)では動作しました。
https://blogs.yahoo.co.jp/bardiel_of_may/40864687.html

ご参考まで。

お礼

mitarashi様
御回答ありがとうございました。
私にはチョット難しいのですが
時間をかけて試してみます。

回答No.1

imogasi

私にはよくわかりませんが
https://okwave.jp/qa/q1384533.html
の質問と同じ内容ですか？　だったら上記サイトを参考に。
ＥＮＵＭＰＲＩＮＴＥＲＳはＡＰＩの域のことらしいが。

お礼

imogasi様
御回答ありがとうございました。
同じ質問があり、回答も出ていたようで失礼いたしました。
「ＥＮＵＭＰＲＩＮＴＥＲＳはＡＰＩ」が私にはわからないので調べてみます。