RichEdit mit Vorlage

[clock50]

Hat sich erledigt

Delphi-Quellcode:

procedure Tdrucken.newdoc(seiten : byte; doc : string);
var b : byte;
begin
JvRichEdit1.Lines.Clear;
JvRichEdit1.Lines.LoadFromFile('c:\vorlage.rtf');
if seiten > 1 then
 begin
 JvRichEdit1.SelectAll;
 JvRichEdit1.CopyToClipboard;
 end;
for b := 1 to seiten-1 do
 begin
 JvRichEdit1.SelStart := JvRichEdit1.SelLength+1;
 JvRichEdit1.PasteFromClipboard;
 JvRichEdit1.SelectAll;
 end;
JvRichEdit1.SelStart := JvRichEdit1.SelLength+1;
JvRichEdit1.Print(doc);
end;