インストールされているプリンターの名前を取得するには?

Question 63.9 印刷 Excel VBA Borad (掲示板)より Previous Next
[プリンター]フォルダー
[スタート]-[設定]-[プリンター]のフォルダー内に有るものの名前を、一覧表にして表示したいのですが、どうすればよいでしょうか。
どなたかよい智恵を授けてください。

普通のフォルダー内のものは表示できるのですがこれは、うまく行かなくて・・・
Answer   2003.5.26 もてもて
もてもてです。
私も知らなかったので、あれこれ調べてみたら、NameSpace というのを見つけました。
1件目に "プリンターの追加" と取得するようなので回避しましたが、他のパソコンで試してないので確認してください。
ワークシート
Sub test()
Dim Win As Object
Dim a As Object
    Set Win = CreateObject("Shell.Application")
    i = 1
    For Each a In Win.NameSpace(4).Items
        If i > 1 Then
            Cells(i, 1) = a.Name
        End If
        i = i + 1
    Next
End Sub
ありがとうございました
もてもて様  みごとに、表示されました。 ありがとうございました。感謝感激です。

関連ページ  ・ プリンターがインストールされているかを確認するには?

Excel VBA Macro