schau dir mal die demo an...
Delphi-Quellcode:
procedure TRTFDemoForm.ReportSystem1Print(Sender: TObject);
var
MemoBuf: TMemoBuf;
begin
MemoBuf := TMemoBuf.Create;
With Sender as TBaseReport do try
MemoBuf.PrintStart := SectionLeft;
MemoBuf.PrintEnd := SectionRight;
MemoBuf.RTFLoadFromFile('RPDEMO.RTF');
PrintMemo(MemoBuf,0,false);
finally
MemoBuf.Free;
end; { with }
end;
ob das auch mit fotis geht, mal ausprobieren...