#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved