VB Code:
  1. Dim Prt As Printer
  2.  
  3. For Each Prt In Printers
  4.    
  5.    Debug.Print Prt.DeviceName
  6.  
  7. Next