TopPicLogo TopPicText

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

По материалам: 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
Назад ToTop
L.E. 23.11.2017
Рейтинг@Mail.ru