Drucken über Canvas!

[Hawkeye219]

und wenn du zwei Zeilen deines Codes entfernst?

Delphi-Quellcode:

begin
  Lines := 900;
  table3.First;
  printer.BeginDoc;
  repeat

    // Druckbefehle

    lines:=lines+1000;
    if lines>6000 then
    begin;
      Printer.NewPage;   // <<-- neu
      lines:=900;
//    printer.enddoc;    // <<-- entfernen
//    printer.BeginDoc;  // <<-- entfernen
    end;
  until (table3.RecNo = anzahldb);
  printer.EndDoc;
end;