How to compose a document from multiple documents?

[Stefaan]

I have a document with fields, that must be replaced with values. Several documents will be created by using different values. All these documents should come in a large document, with each document beginning on a new page. This resulting document must be shown in a print preview and be printed. What is the best way to create such composite document?

There's a demo on that topic on http://www.trichview.com/forums/viewtopic.php?t=87 but its targeted at TRichViewEdit and TRVPrint. I'm using TSRichViewEdit and TSRVPrint.

[Sergey Tkachenko]

Use TSRVPrint to print several documents on one printing job.
TSRVPrint.PrintFramesEx prints one page.

Code: Select all

var FirstPage: Boolean;

FirstPage := True;
Printer.BeginDoc;
for i := 0 to DocumentCount-1 do begin
  <prepare the i-th document here>
  for j := 1 to SRichViewEdit.PageCount do begin
    if FirstPage then 
      FirstPage := False
    else
      Printer.NewPage;
    SRVPrint1.PrintFramesEx(j);
  end;
Printer.EndDoc;

[Stefaan]

Thanks for your answer. Is it possible to show a print preview of the composite document to the user before printing?

[proxy3d]

Yes. For this purpose you need to display pages. For page drawing, it is necessary to use function:

Code: Select all

    procedure DrawPage(PageNo, PageWd, PageHt, OffX, OffY: Integer;
      CanvasPage: TCanvas; PageNoVisible, ClipMargins, Printing: Boolean);

Description of parametres of function look in the help.