ITabSheetExporter.AutoHeight

Синтаксис Fore

AutoHeight: Boolean;

Синтаксис Fore.NET

AutoHeight: boolean;

Описание

Свойство AutoHeight определяет, будет ли при экспорте в форматы HTML (*.html) и RTF (*.rtf) использоваться автоподгон высоты строк.

Комментарии

Допустимые значения:

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGL_EXPORT».

Добавьте ссылки на системные сборки «Metabase», «Report», «Tab».

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Exp: ITabSheetExporter;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById(
"REGL_EXPORT").Edit As IPrxReport;
    Tab := (Report.Sheets.Item(
0As IPrxTable).TabSheet;
    Exp := 
New TabSheetExporter.Create;
    Exp.TabSheet := Tab;
    Exp.AutoHeight := True;
    Exp.BreakIntoLayouts := 
True;
    
// Экспорт в формате RTF:
    Exp.ExportToFile("C:\Export.rtf""RTF");
End Sub UserProc;

После выполнения примера будет выполнен экспорт отчета в формате RTF. В результирующем файле высота строк установлена автоматически в зависимости от содержания. При экспорте лист будет разбит на печатные страницы.

Пример Fore.NET

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

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Exp: ITabSheetExporter;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REGL_EXPORT"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0As IPrxTable).TabSheet;
    Exp := New TabSheetExporter.Create();
    Exp.TabSheet := Tab As TabSheet;
    Exp.AutoHeight := True;
    Exp.BreakIntoLayouts := True;
    // Экспорт в формате RTF:
    Exp.ExportToFile("C:\Export.rtf""RTF");
End Sub;

См. также:

ITabSheetExporter