Re: All record in one RVPrint

Return to index

Author

Message

Yernar FoxTail

Posted: 11/20/2002 8:27:44

Something like this?

  RichView1.Clear;

  with Table1 do begin

    First;

    while not EOF do begin

      RichView1.AddNL(FieldByName('Name').AsString, 0, 0);

      Next;

    end;

  end;

  RichView1.Format;

  RVPrint1.AssignSource(RichView1);

  RVPrint1.FormatPages(rvdoALL);

  if RVPrint1.PagesCount>0 then begin

    frmPreview.rvpp.RVPrint := RVPrint1;

    frmPreview.ShowModal;

  end;

Hope it helps.

"Laura" <[email protected]> wrote:

>

>I need to see all the records of my database in a single  (one)preview,

as

>I can make it in a quick way.