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