Menampilkan daftar nama printer yang terinstall di suatu komputer

Apabila kita ingin menampilkan daftar printer yang ter install di komputer kita maka berikut contoh kodding nya :

Keterangan
‘Set property Style ComboBox menjadi “2 – Dropdown List”.

Dim Ptr As Printer ‘Deklarasi objek printer

Private Sub Form_Load()
If cboPrinter.ListCount = 0 Then
For Each Ptr In Printers
cboPrinter.AddItem Ptr.DeviceName
Next
End If
cboPrinter.Text = Printer.DeviceName ‘Tampilkan printer defaultnya.
End Sub