اگه برنامتون لازم داشت که نام تمام Printer های موجود رو بدونه (مثلاً print گرفتن با Printer دلخواه) از کد زیر استفاده کنین . بعداً کار با Printer رو کامل توضیح میدم ....

فقط دو object رو بسازین : Command1  و  List1

Private Sub Command1_Click()
Set Printer = Printers(List1.ListIndex)
End Sub

Private Sub Form_Load()
For a = 0 To Printers.Count - 1
List1.AddItem Printers(a).DeviceName
Next a
End Sub