Sub Example_Output()
    ' Этот пример получает ссылку на объект Output Preferences от объекта
    ' Application Preferences, и читает один из параметров Output
    
    Dim ACADPref As AcadPreferencesOutput
    
    ' Получите ссылку к объекту Output Preferences
    Set ACADPref = ThisDrawing.Application.preferences.Output
    
    MsgBox "Вы теперь имеете доступ к свойствам и методам объекта Output Preferences! "
    MsgBox "Параметр Output DefaultOutputDevice установлен в: " & ACADPref.DefaultOutputDevice
    
    ' Освобождаем объект Output Preferences
    Set ACADPref = Nothing
    MsgBox "Объект Output Preferences освобождён!"
End Sub