RUS  ENG 

Примеры

Алексей Аширов , 9 Февраля 2019

Печать карты (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

Скачать пример (750 Б)


Возврат к списку

Последнее обновление — 09.02.2019 15:12:59