Sub Example_CanonicalMediaName()
    ' Этот пример находит название носителей для активного листа
    
    Dim MediaName As String
    MediaName = ThisDrawing.ActiveLayout.CanonicalMediaName
    
    If MediaName = "" Then
        MsgBox "Нет никакого набора носителей для активного листа. "
    Else
        MsgBox "Носители для активного листа: " & MediaName
    End If
End Sub