Sub Example_GetPaperSize()
    ' Этот пример получает ширину и высоту заданного по умолчанию размера
    ' бумаги для вашей системы.
    
    Dim PaperWidth As Double
    Dim PaperHeight As Double
    
    ThisDrawing.ActiveLayout.GetPaperSize PaperWidth, PaperHeight
    
    MsgBox "Заданный по умолчанию размер бумаги " & vbCrLf & _
            "Ширина: " & PaperWidth & vbCrLf & _
            "Высота: " & PaperHeight

End Sub