以下の感じでリストにアイテムを追加する。 Private Sub Form_Load() 'フォーム読み込み時 Dim prt As Printer 'すべてのプリンタを列挙してコンボボックスの値集合ソースに追加 For Each prt In Application.Printers Me.リスト10.AddItem prt.DeviceName N…