Re: Merging Print outs

Author

Message

Sergey Tkachenko

Posted: 03/27/2003 12:47:16

Yes, something like this.

This code prints documents on one page (if documents consist of one page).

If you want to print new document from the new page, call Printer.NewPage

before printing it.

More flexible results can be achieved with TRVReportHelper

(Demos\Delphi\Assorted\Printing\ReportHelper\)

> RVPrint.AssignSource(RichView1);

> Printer.BeginDoc;

> RVPrint.StartAt := 0;

> RVPrint.TransparentBackground := True;

> RVPrint.FormatPages(rvdoALL);

> RVPrint.ContinuousPrint;

> RVPrint.StartAt := RVPrint.EndAt+60; // 60 pixels spacing between

documents

> RVPrint.AssignSource(RichView2);

> RVPrint.FormatPages(rvdoALL);

> RVPrint.ContinuousPrint;

> Printer.EndDoc;