CreatePrinter: ITabSheetPrinter;
The CreatePrinter method creates an object that outtypes a table.
Executing the example requires a form, a button located on this form with the Button1 identifier, the TabSheetBox component, the UiTabSheet and ImageBox components with the UiTabSheet1 and ImageBox1 identifiers respectively. The UiTabSheet is the data source for the TabSheetBox component. Also, the file system should include the C:/map.bmp file containing an image.
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;
After executing the example the contents of the TabSheetBox component is displayed in graphical form with the defined parameters in the ImageBox1 component.
See also: