mal aus der Hilfe für TPrinter zusammengeschustert.
Wenn Du die Memo in einer Stringlist zusammenführst, dann
kannst Du ja zwischen zwei Memofeldern ein Zeile einfügen
z.b. mit diesem Inhalt: '<----new Page ---->'
Könnte einen Ansatz bieten.
Grüße
Klaus
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
for i := 0 to StringList.Count -1 do
begin
if stringlist.strings[i] = '<----new Page ---->' then
{ begin
EndDoc; //macht einen Seitenvorschub
BeginDoc;
end
}
NewPage { seitenvorschub, danke xaromz }
else
Canvas.TextOut(200,200 + (i *Canvas.TextHeight(StringList.Strings[i])),StringList.Strings[i]);
end;
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;
[edit] manchmal sieht man den Wald vor lauter Bäumen nicht [/edit]