Печать карты (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
Последнее обновление — 09.02.2019 15:12:59