<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Printing

From HtPanel: call

   procedure Print(PrintDialog: TPrintDialog = nil; const PrintScale: single = 1);

 

From document: create another document, pass print canvas class to constructor and call Print. Example:

 

 PrintDoc := THtDocument.Create(Doc.CanvasClass.PrintCanvasClass); 
 try
   PrintDoc.OnGetUrl := Doc.OnGetUrl;
   PrintDoc.OnGetImage := Doc.OnGetImage;
   PrintDoc.CurrentFile := Doc.CurrentFile;
   PrintDoc.Parse(Doc.OuterHTML);
   PrintDoc.GeneratePagesForPrint;
   PrintDoc.Surface.Print(PrintDialog); 
 finally
   PrintDoc.Free
 end;

 

HTML Report Library has ready to use print preview window for VCL and FMX in htPreviewFrame and fmx.htPreviewFrame units.

To open print preview call

 

  procedure ShowHtPrintPreview(ADocument: THtDocument; const AStyles: string = '';
    const ACaption: string = 'Print Preview'; AWidth: integer = 1200;  AHeight: integer = 800); overload;
 
  procedure ShowHtPrintPreview(const AReport: hstring; const AStyles: string = '';
    const ACaption: string = 'Print Preview'; AWidth: integer = 1200;  AHeight: integer = 800); overload;