Drucken von Memo + Überschrift

[GuenterS]

druck die Überschrift vorher aus... nachher wirst dich eventuell etwas schwertun, der Drucker scrollt meines Wissens nach nicht zurück.

Delphi-Quellcode:

procedure TForm1.ToolButton4Click(Sender: TObject);
var
   i, lPageLine, lLineHeight, lLineCount: integer;
begin
   Printer.BeginDoc;
   Printer.Canvas.Font.Name := 'Arial';
   Printer.Canvas.Font.Size := 11;
   lLineHeigt := Printer.Canvas.TextHeight('Dummy');
   lLineCount := Printer.PageHeight div lLineHeight;
   for i := 0 to Memo1.Lines.Count -1 do
   begin
       if ((i mod lLineCount) = 0) then
       begin
          Printer.NewPage;
          lPageLine := 1;
       end;
       if (i = 0) then
       begin
          Printer.Canvas.TextOut(150,lPageLine * LineHeight + 150, tabsheet1.caption);
          inc(lPageLine);
       end
       Printer.Canvas.TextOut(150, lPageLine * LineHeight + 150, Memo.Lines[i]);
       inc(lPageLine);
   end;
   Printer.EndDoc;
end;

Habe ich nicht getestet, müßte aber von der Logik her so ziemlich passen.