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

По материалам: 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