使用できるプリンター名を取得するには？ (ID:74783)

名前

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

本文 使用できるプリンター名を取得したいのですが・・・。 VBでは出来たのですが、COM(ActiveX)にした場合、 同じ処理を行えないのです。 For文でプリンターが見つけられていないようなのですが、 どうしたら良いのでしょうか？ Public Function print_p() As String Dim odjprn As Printer For Each objprn In Printers print_p = print_p + objprn.DeviceName + " " Next End Function