Richedit drucken mit Farbe UND Seitenzahl

[padavan]

Hallo,

möchte eine Richedit ausdrucken - tja, bisher muss ich mich entscheiden zwischen

Richedit1.print(); was mir das Feld schön in Farbe rausdruckt, so wie ich´s auf dem Bildschirm sehe, oder einer eigenen Routine

Delphi-Quellcode:

      i := 0;
      j := 100;
      Seite := 1;
      Seitenanzahl := (Richedit1.Lines.Count div 64) + 1;
      neueSeite := false;
      printer.BeginDoc;
      repeat
        if (getasynckeystate(vk_escape) <> 0) then break;
        printer.Canvas.TextOut(200,j,Richedit1.Lines[i]);
        printer.Canvas.TextOut(2300,6850,inttostr(Seite) + ' - ' + inttostr(Seitenanzahl)); // Seite 1-2
        printer.Canvas.TextOut(4480,6850,datetostr(now));
        printer.Canvas.TextOut(200,6850,Panel3_1.Caption);
        if j = 6400 then neueSeite := true; 
        if neueSeite = true then begin  
          printer.NewPage;
          neueseite := false;
          j := 100;
          Seite := Seite + 1;
        end;
        i := i + 1;
        j := j + 100;
      until i = Richedit1.Lines.count;
      printer.EndDoc;

Hier schaffe ich es Seitenzahl, Datum und Name des Dokuments einzuplegen.

Wie geht beides ???

PS: Die Stiftfarbe vor jeder Zeile zu ändern hab ich schon versucht, das Problem liegt eher darin, herauszufinden, welche Farbe hat jedes Zeichen, da wie könnte es anders sein, die Zeilen nicht unbedingt in deiner Farbe sein müssen