Hvad fylder en text i Richedit format i en Rave rapport ?

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;

VH
koden12

Jeg har brugt faste felter af typen DataMemo og DataText i mine rapporter.
Da dette ikke fremgår af spørgsmålet acceptere jeg svaret Tak skal du have.
Jeg vil nu forsøge at rette rapporten, så den printer direkte, samt bruge metoden Textwidth i klassen TBaseReport, som du via dit svar fik mig til at undersøge.

Jeg har brugt faste felter af typen DataMemo og DataText i mine rapporter.
Da dette ikke fremgår af spørgsmålet acceptere jeg svaret Tak skal du have.
Jeg vil nu forsøge at rette rapporten, så den printer direkte, samt bruge metoden Textwidth i klassen TBaseReport, som du via dit svar fik mig til at undersøge.

Du er velkommen jeg har selv rodet en del med den.
Den er faktisk OK... opdagede jeg ..men det tog TID ! : )
Jeg er lidt stolt da det nok er de eneste point jeg har skoret : )

VH
koden12