Hallo Leute,

ich möchte in meiner Anwendung ein Dokument erstellen mit RichEdit (JvRichEdit) nun habe ich soetwas wie einen Kopfbogen als Vorlage der bei jedem Ausdruck dabei sein muß auch bei mehreren Seiten auf jeder Seite.
Für die erste Seite ist das ja noch kein Problem
JvRichEdit.LoadFromFile('c:\vorlage.rtf'); aber wie kann ich das mit meheren Seiten machen?

Hat sich erledigt

zusammenfalten · markieren

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;

So das mit meiner Vorlage klappt ganz gut aller dings macht es großen Aufwand darauf zu achten das sich nichts verschiebt (nach unten).
Ist es möglich, die Vorlage Readonly zu machen und den Inhalt des Doc's darüber zu legen und dann sozusagen zwei Folien zusammenfügt zum drucken?

Ich habe einige Überlegungen angestellt. Ist es denkbar über canvas soetwas umzusetzen?