掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB6でPrintersオブジェクト古いプリンタ情報を削除するには？ (ID：103386)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WinXP(SP3),VB6.0(SP6) の環境で、３パターンほど試しましたが、特に不具合は出ないですね。 OS や VB6 のサービスパックの状態は？ ' Index で列挙 Private Sub Command1_Click() Dim i As Long With List1 .Clear For i = 0 To Printers.Count - 1 .AddItem Printers(i).DeviceName Next End With End Sub ' For Each で列挙 Private Sub Command2_Click() Dim p As Printer With List1 .Clear For Each p In Printers .AddItem p.DeviceName Next End With End Sub ' WMI で列挙 Private Sub Command3_Click() Dim wmi, svc, ps, p Set wmi = CreateObject("WbemScripting.SWbemLocator") Set svc = wmi.ConnectServer Set ps = svc.ExecQuery("Select * From Win32_Printer") With List1 .Clear For Each p In ps .AddItem p.Caption Next End With End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.