#285
PrinterオブジェクトおよびPrintersコレクションを使って、そのパソコンで使用可能なプリンタの一覧を取得する例です。
下記のプログラムでは、フォームを開くときに、使用可能なすべてのプリンタを表すPrintersコレクションから１つずつPrinterオブジェクトを取得し、コンボボックスの値集合ソースにその「DeviceName」プロパティの値を追加しています。なお、コンボボックスの値集合タイプはあらかじめ"値リスト"に設定しておきます。
Private Sub Form_Load()
'フォーム読み込み時
Dim prt As Printer
'すべてのプリンタを列挙してコンボボックスの値集合ソースに追加
For Each prt In Application.Printers
Me!cboPrinterList.AddItem prt.DeviceName
Next prt
End Sub
'フォーム読み込み時
Dim prt As Printer
'すべてのプリンタを列挙してコンボボックスの値集合ソースに追加
For Each prt In Application.Printers
Me!cboPrinterList.AddItem prt.DeviceName
Next prt
End Sub
