Exakte Druckposition der letzten RichEdit-Zeile herausfinden

**gullatrulla**

Hallo Delphi-Folks

Ich möchte ein mehrseitiges RTF-Dokument drucken.

Soweit gemäss untenstehender Source kein Problem

zusammenfalten · markieren

Delphi-Quellcode:

			//----------------------------------------------------------------------

Printer.BeginDoc;

...

SendMessage(Handle, EM_FORMATRANGE, 0, 0);  

try

  repeat

       chrg.cpMin := LastChar;

       LastChar := SendMessage(Self.Handle, EM_FORMATRANGE, 1, Longint(@Range));

       if (LastChar < MaxLen) and (LastChar <> -1) then begin

          NewPage;

          Inc(PageCountRich);

       end;

  until (LastChar >= MaxLen) or (LastChar = -1);

  finally

        SendMessage(Handle, EM_FORMATRANGE, 0, 0); 

        SetMapMode(hdc, OldMap);                   

  end;

Printer.EndDoc;

//----------------------------------------------------------------------

Nun sollte ich nach der letzten Zeile des RTF-Dokuments noch zusätzlich
eine Zeile drucken.

Gibt es eine Möglichkeit die exakte Pixel-Druckposition der letzten RTF-Zeile zu ermitteln,
damit die "manuelle" Zeile exakt unterhalb des RTF-Dokuments gedruckt werden kann?

Herzlichen Dank für Eure Hilfe
Roland

[edit=Sharky][Delphi]-Tags gesetzt. Mfg, Sharky[/edit]

Exakte Druckposition der letzten RichEdit-Zeile herausfinden

Exakte Druckposition der letzten RichEdit-Zeile herausfinden

Forumregeln