Dim sNome As String For Each sNome In Printer.List Print sNome Next Deskjet-2000-J210-series Epson-AL-C2800