Hallo Delphi-Folks
Ich möchte ein
mehrseitiges RTF-Dokument drucken.
Soweit gemäss untenstehender Source kein Problem
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]