Function DameImpresora()
For Each I In Printers
     MsgBox I.DeviceName
  Next

End Function