Задает область печати карты.

Применяется к:

PrintInfo

Синтаксис:

Visual Basic:

Sub SetAreaRectangle(inCRS As CRS, rect As ZRectangle)

inCRS - система координат, которой соответствуют координаты прямоугльной области

rect - прямоугльная область печати

Пример печати карты, где область печати - габариты активного слоя:

'VBScript:
' ActiveX enumeration values definitions start (do not change!)
Const ePrintFitToPage = 2
Const ePrintExplicitRect = 64
' ActiveX enumeration values definitions end

'Пример печати карты на одной странице по габаритам активного слоя
Sub PrintTest

'Получаем активную карту
Set doc = zulu.ActiveMapDoc

'Создаем объект для настройки печати
Set P = CreateObject("ZuluLib.PrintInfo")

'Получаем габариты слоя в проекции карты
Set rect = doc.Layers.Active.GetBoundsCRSRectangle(doc.GetCRS)

'Задаем область печати, с указанием, к какой проекции относится этот прямоугольник 
P.SetAreaRectangle doc.GetCRS, rect

'Печать на одну страницу заданной области
P.Options = ePrintFitToPage + ePrintExplicitRect

'Запускаем процесс печати
doc.PrintOut P

End Sub