Objeto InstalledPrinters (Publisher)
Representa a coleção de todos os objetos Printer , cada um dos quais representa uma das impressoras instaladas no computador.
Comentários
Para fornecer ao usuário uma opção de impressoras para imprimir uma publicação, você pode iterar por meio da coleção InstalledPrinters para obter uma lista dos nomes de todas as impressoras instaladas no computador.
A propriedade padrão da coleção InstalledPrinters é Item.
Exemplo
Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como você pode usar as propriedades de NomeDaImpressora e IsActivePrinter do objeto Printer para obter uma lista de todas as impressoras instaladas no computador e para determinar qual deles está atualmente a impressora ativa.
Public Sub InstalledPrinters_Example()
Dim pubInstalledPrinters As Publisher.InstalledPrinters
Dim pubApplication As Publisher.Application
Dim pubPrinter As Publisher.Printer
Set pubApplication = ThisDocument.Application
Set pubInstalledPrinters = pubApplication.InstalledPrinters
For Each pubPrinter In pubInstalledPrinters
Debug.Print pubPrinter.PrinterName
If pubPrinter.IsActivePrinter Then
Debug.Print "This is the active printer."
End If
Next
End Sub
Propriedades
Confira também
Suporte e comentários
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.