表紙へ

８．使用可能なプリンタの一覧を取得する

以下のサンプルを実行するためにはフォームにリストボックス(List1)を貼り付ける。

Dim K As Long

For K = 0 To Printers.Count - 1
    List1.AddItem Printers(K)
Next K

メモ：使用可能なプリンタの数はPrinters.Countで取得できる。プリンターの名前は配列であるPrintersで取得できる。