Memperoleh 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