タイトル : Printers.DeviceNameの表示順 投稿日 : 2008/12/18(Thu) 09:29 投稿者 : ponta
上手く検索出来ませんでしたので、質問させて下さい。 下記コードにてリストボックスにプリンター名を取得する場合、 どのような基準で取得される順番が決まるのでしょうか? Dim objPrinter As Object Dim c AS Long For Each objPrinter In Printers List1.AddItem Format$(c,"00") + ")" + objprinter.DeviceName c = c + 1 Next objprinter ちなみに、 EPSON LP-1400 EPSON LP-2500 EPSON PM-G860 VP-4200 というプリンターが登録されているPCでは、 上記コードの出力結果は以下の通りでした。 00)VP-4200 01)EPSON PM-G860 02)EPSON LP-2500 03)EPSON LP-1400 何故、このような質問をしたのかと言いますと、 偶然でしょうが、VP-4200をインストールするまでは、 EPSON PM-G860がリストの最上位に表示されていたのですが、 それがVP-4200になってしまったからですが、 理由が分かれば、再度、EPSON PM-G860を最上位にしたいのです。 ただし、プリンター名称は一定でないため、 名称では指定出来ないのです。 (PM-G860やG860、EPSONなど様々です) どうかお知恵をお貸し下さい、宜しくお願いします。 |