#285 使用可能なプリンタの一覧をコンボボックスに表示する レポート、VBA

PrinterオブジェクトおよびPrintersコレクションを使って、そのパソコンで使用可能なプリンタの一覧を取得する例です。

下記のプログラムでは、フォームを開くときに、使用可能なすべてのプリンタを表すPrintersコレクションから1つずつ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
ドロップダウンしたところ
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved