Try using VB.Printers as opposed to just Printers
VB Code:
  1. Private MyPrinters As Printer

  2.  
  3. Private Sub Form_Load()

  4. Dim MyPrinters As Printer

  5. 'add all installed printers to combo box (if any)

  6. If VB.Printers.Count <= 0 Then

  7.    cboPrinters.AddItem "No Printer(s) Installed"

  8. Else

  9.     For Each MyPrinters In Printers

  10.         cboPrinters.AddItem MyPrinters.DeviceName

  11.     Next

  12. End If

  13.     cboPrinters.ListIndex = 0

  14. End Sub