Sub Example_RefreshPlotDeviceInfo()
    'Этот пример получает текущую графическую информацию устройства и 
    'затем показывает список графических имен устройств, имен медиа, 
    'ограничиных имен медиа и входы таблицы стиля печати.
    Dim Layout As ACADLayout
    Set Layout = ThisDrawing.ModelSpace.Layout
    
    'Обновите текущую графическую информацию для этого сеанса.
    Layout.RefreshPlotDeviceInfo
    
    'Перечислите все допустимые имена устройства для системы
    Dim plotDevices As Variant
    plotDevices = Layout.GetPlotDeviceNames()
    
    Dim x As Integer
    For x = LBound(plotDevices) To UBound(plotDevices)
        MsgBox plotDevices(x)
    Next
    
    'Перечислите все имена медиа и их ограниченную версию
    Dim mediaNames As Variant
    mediaNames = Layout.GetCanonicalMediaNames()
    
    For x = LBound(mediaNames) To UBound(mediaNames)
        MsgBox mediaNames(x)
        MsgBox Layout.GetLocaleMediaName(mediaNames(x))
    Next
    
    'Перечислите все входы в таблице стиля печати
    Dim styleNames As Variant
    styleNames = Layout.GetPlotStyleTableNames()
    
    For x = LBound(styleNames) To UBound(styleNames)
        MsgBox styleNames(x)
    Next
    
End Sub