Sub Example_SetWindowToPlot()
    'Этот пример позволяет пользователю определять область в текущем
    'листе и показывает предварительный просмотр определенной области.
    '
    '* Примечание: Вы должны выйти из графического предварительного
    ' просмотра прежде, чем пример VBA остановится и управление будет возвращено
    
    Dim point1 As Variant, point2 As Variant
    
    'Получите первую точку в окне
    point1 = ThisDrawing.Utility.GetPoint(, "Щелкните левый нижний угол окна печати.")
    ReDim Preserve point1(0 To 1)   ' Измените на 2D массив, удаляя позицию Z
    
    'Получите вторую точку в окне
    point2 = ThisDrawing.Utility.GetPoint(, "Щелкните правый верхний угол окна печати.")
    ReDim Preserve point2(0 To 1)   ' Измените на 2D массив, удаляя позицию Z
    
    'Пошлите информацию об окне текущему листу
    ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2
    
    'Читайте обратную информацию окна
    ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2
    
    MsgBox "Нажмите любую клавишу, чтобы печатать окно:" & vbCrLf & vbCrLf & _
           "Нижний левый: " & point1(0) & ", " & point1(1) & vbCrLf & _
           "Верхний правый: " & point2(0) & ", " & point2(1)
    
    'Убедитесь,  что выбран нужный стиль печати
    ThisDrawing.ActiveLayout.PlotType = acWindow
    
    'Пошлите Печать Окну
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub