Запускает процесс печати карты с параметрами, заданными в объекте PrintInfo

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

MapDoc

Синтаксис:

Visual Basic:

Function PrintOut(Path As PrintInfo) As Boolean

Пример печати карты:

'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