MyTetra Share
Делитесь знаниями!
Получение информации о принтере по умолчагию
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 16 Система

Получение информации о принтере по умолчагию

По материалам: https://support.office.com/ru-ru/article/%D0%A1%D0%B2%D0%BE%D0%B9%D1%81%D1%82%D0%B2%D0%BE-Printer-%D0%9F%D1%80%D0%B8%D0%BD%D1%82%D0%B5%D1%80-A684A458-AE80-4B38-9B3B-01C4D39475E5


Private Sub cmdTest02_Click()

'Получение информации о принтере по умолчанию



Dim prtDefault As Printer


Set Application.Printer = Application.Printers(0)


Set prtDefault = Application.Printer


With prtDefault

MsgBox "Device name: " & .DeviceName & vbCrLf _

& "Driver name: " & .DriverName & vbCrLf _

& "Port: " & .Port, vbInformation, "Oaeouee i?eioa?:"

End With

End Sub



 
MyTetra Share v.0.52
Яндекс индекс цитирования