Objeto Impressoras (Access)
A coleção Printers contém impressora objetos que representam todas as impressoras disponíveis no sistema atual.
Use a propriedade impressoras do objeto Application para retornar a coleção Printers. Você pode enumerar toda a coleção Printers usando o para cada … Próximo instrução.
Consulte um objeto impressora individual na coleção Impressoras , referindo-se à impressora pelo nome ou referindo-se ao seu índice dentro da coleção.
A coleção Printers é indexada começando com zero. Se você fizer referência a uma impressora pelo índice, a primeira impressora será Printers(0), a segunda impressora é Printers(1) e assim por diante.
Você não pode adicionar nem excluir um objeto Printer da coleção Printers.
O exemplo a seguir exibe as informações sobre todas as impressoras disponíveis no sistema.
Dim prtLoop As Printer
For Each prtLoop In Application.Printers
With prtLoop
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With
Next prtLoop
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.