ITabSheet.CreatePrinter

Синтаксис

CreatePrinter: ITabSheetPrinter;

Описание

Метод CreatePrinter создает объект, осуществляющий вывод таблицы на печать.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором «Button1», компонента TabSheetBox, компонентов UiTabSheet и ImageBox с идентификаторами «UiTabSheet1» и «ImageBox1» соответственно. UiTabSheet является источником данных для TabSheetBox. Также в файловой системе должен присутствовать файл «C:/map.bmp», содержащий изображение.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

tSheet: ITabSheet;

Printer: ITabSheetPrinter;

pCount: Integer;

Graphics: IGxGraphics;

m_Image: IGxImage;

Begin

tSheet := UiTabSheet1.TabSheet;

Printer := tSheet.CreatePrinter;

Printer.FirstPageGap := 30;

Printer.HeaderGap := 15;

Printer.FooterGap := 30;

Printer.PageSettings.BlackAndWhite := True;

pCount := Printer.GetPageCount;

If pCount > 0 Then

m_Image := New GxImage.CreateFromFile("C:/map.bmp");

Graphics := GxGraphicsClass.FromImage(m_Image);

Printer.PrintPage(1, Graphics);

ImageBox1.Image := m_Image;

End If;

End Sub Button1OnClick;

После выполнения примера содержимое компонента TabSheetBox в графическом виде будет выведено в компонент ImageBox1 с заданными параметрами.

См. также:

ITabSheet