Объект Printers (Access)
Коллекция Принтеры содержит объекты Printer , представляющие все принтеры, доступные в текущей системе.
Используйте свойство Printers объекта Application , чтобы вернуть коллекцию Printers . Перечисление можно выполнить через коллекцию Printers с помощью параметра For Each... Следующая инструкция.
Обратитесь к отдельному объекту Printer в коллекции Printers , ссылаясь на принтер по имени или на его индекс в коллекции.
Коллекция Printers индексируется с нуля. Если вы ссылаетесь на принтер по индексу, первый принтер — Printers(0), второй принтер — Printers(1) и т. д.
Невозможно добавить или удалить объект Printer из коллекции Принтеры .
В следующем примере отображаются сведения обо всех принтерах, доступных системе.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.