Rave - Imprimindo RichText sobre multiplas paginas

Tip #20 - Printing RichText across multiple pages

Category

Code Based - General

Question

How do I print RichText across multiple pages?

Solution

It is often necessary to print memos containing RTF across multiple pages. This can easily be done with the following code:

Delphi Example:

uses

  RPMemo;

procedure TForm1.ReportSystem1Print(Sender: TObject);

var  MemoBuf: TMemoBuf;

begin

  With Sender as TBaseReport do begin

    MemoBuf := TMemoBuf.Create;

    MemoBuf.BaseReport := Sender as TBaseReport;

    try

      MemoBuf.RichEdit := RichEdit1;

      MemoBuf.PrintStart := 1.0;

      MemoBuf.PrintEnd := 7.0;

      While not MemoBuf.Empty do begin

        MemoBuf.PrintHeight(SectionBottom - LineTop,false);

        If not MemoBuf.Empty then begin

          NewPage;

        end; { if }

      end; { while }

    finally

      MemoBuf.Free;

    end; { tryf }

  end; { with }

end;