VB6 Code - Informasi Mengenai Printer Yang Terinstall

Di bawah ini merupakan cara memperoleh/mengetahui informasi mengenai printer yang terinstall.

Option Explicit

Public Function ListAllPrinters(lst As Control)
 Dim oPrint As Object
 For Each oPrint In Printers
   List1.AddItem oPrint.DeviceName
 Next
End Function

Contoh penggunaan mengenai printer yang terinstall

Private Sub Form_Load()
 ListAllPrinters List1
End Sub