Map: IMap;
Свойство Map определяет карту для экспорта.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report : IPrxReport;
TabObj: ITabObject;
exp: MapExporter;
Map: IMap;
Begin
TabObj := (Report.Sheets.Item(0) As IPrxTable).TabSheet.Objects.Item(0);
Map := TabObj.Extension As IMap;
exp := New MapExporter.Create;
exp.Map := Map;
exp.PixelHeight := 300;
exp.PixelWidth := 500;
exp.Scale := 0.5;
exp.ExportToFile("d:\map.jpg", "jpg");
End Sub UserProc;
После выполнения примера карта будет экспортирована в файл, указанного формата (jpg).
См. также: