ITabSheetExporter.ExportFootnotes

Синтаксис Fore

ExportFootnotes: Boolean;

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

ExportFootnotes: Boolean;

Описание

Свойство ExportFootnotes определяет, будут ли экспортироваться сноски таблицы.

Комментарии

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

• True. Экспортировать сноски;

• False. Не экспортировать сноски.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента UiTabSheet с наименованием «UiTabSheet1» и каких-либо визуальных компонентов, для которых «UiTabSheet1» установлен в качестве источника данных. В таблице компонента созданы сноски.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tabsheet: ITabSheet;
    Footnotes: ITabFootnotes;
    Exporter: ITabSheetExporter;
Begin
    Exporter := New TabSheetExporter.Create;
    TabSheet := UiTabSheet1.TabSheet;
    TabSheet.PageSettings := New TabPageSettings.Create;
    Footnotes := TabSheet.Footnotes;
    //Все сноски в конце полученного документа
    Footnotes.Location := TabFootnotesLocation.EndOfSheet;
    Exporter.TabSheet := TabSheet;
    Exporter.ExportFootnotes := True;
    Exporter.ExportToFile("C:\Tabsheet.pdf", "PDF");
End Sub Button1OnClick;

При нажатии на кнопку будет произведён экспорт таблицы в указанный файл. Текст всех сносок будет расположен на последней странице файла.

Пример Fore.NET

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

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

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Tabsheet: TabSheet;
    Footnotes: ITabFootnotes;
    Exporter: ITabSheetExporter = New TabSheetExporterClass();
Begin
    TabSheet := uiTabSheetNet1.TabSheetUi.TabSheet;
    Tabsheet.PageSettings := New TabPageSettingsClass();
    Footnotes := TabSheet.Footnotes;
    //Все сноски в конце полученного документа
    Footnotes.Location := TabFootnotesLocation.tflEndOfSheet;
    Exporter.TabSheet := TabSheet;
    Exporter.ExportFootnotes := True;
    Exporter.ExportToFile("C:\Tabsheet.pdf", "PDF");
End Sub;

См. также:

ITabSheetExporter