IPrxFlash.ExportCondition

Синтаксис

ExportCondition: PrxFlashExportCondition;

Описание

Свойство ExportCondition определяет условия экспорта Flash-объекта.

Пример Fore

Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT». На активном листе отчета расположен только Flash-объект. Подключите системные сборки: Metabase, Report, Tab.

Sub Main;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Fl: IPrxFlash;
    exp: IPrxReportExporter;
    Param: Array Of Variant;
Begin
    MB := MetabaseClass.Active;
    Rep := MB.ItemById("REGULAR_REPORT").Bind As IPrxReport;
    SheetT := Rep.Sheets.Item(0) As IPrxTable;
    Tab := SheetT.TabSheet;
    exp := New PrxReportExporter.Create;

    exp.ExportFlashsAsImages := True;
    exp.Report := Rep;
    exp.Sheet := Rep.ActiveSheet;
    Fl := Tab.Objects.Item(0).Extension As IPrxFlash;
    Fl.ExportCondition := PrxFlashExportCondition.Frame;
    Param := New Variant[2];
    Param[0] := 0;
    Param[1] := -1;
    Fl.ExportConditionParams := Param;
    exp.ExportToFile("C:\Отчет.rtf", "rtf");
End Sub Main;

После выполнения примера активный лист регламентного отчета будет экспортирован в файл «C:\Отчет.rtf». Flash-объект, расположенный на активном листе отчета, будет экспортирован в виде изображения, представляющего собой первый фрейм Flash-объекта.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Fl: IPrxFlash;
    Param: Array Of object;
    exp: IPrxReportExporter = New PrxReportExporterClass();
Begin
    MB := Params.Metabase;
    Rep := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    SheetT := Rep.Sheets.Item[0] As IPrxTable;
    Tab := SheetT.TabSheet;
    exp.Report := Rep;
    exp.ExportFlashsAsImages := True;
    exp.Report := Rep;
    exp.Sheet := Rep.ActiveSheet;
    Fl := Tab.Objects.Item[0].Extension As IPrxFlash;
    Fl.ExportCondition := PrxFlashExportCondition.pfecFrame;
    Param := New object[2];
    Param[0] := 0;
    Param[1] := -1;
    Fl.ExportConditionParams := Param;
    (Rep As IMetabaseObject).Save();
    exp.ExportToFile("C:\Отчет.rtf", "rtf");
End Sub;

См. также:

IPrxFlash