Imprimir con TPrinter varias hojas

[[newtron]]

A ver....

Suponiendo que el documento tenga 210 de ancho por 148 de alto que sería la mitad de un A4 tendrías que hacer lo siguiente:

Te pongo una idea de cómo podrías hacerlo que deberás retocar (no lo he probado).

Código Delphi [-]
LongitudImpresa:=10; // Aquí vamos a almacenar el tamaño impreso del documento, dejamos un pequeño margen por arriba
for i := 0 to Memo1.Lines.Count do begin
          Canvas.TextOut(200,LongitudImpresa,Memo1.Lines.Strings[i]);
  LongitudImpresa:=LongitudImpresa+Micanvas.TextHeight(Memo1.Lines.Strings[i]);
  If LongitudImpresa>130 then begin  // Dejamos el margen inferior en blanco
    Printer.NewPage;
    LongitudImpresa:=10; // Saltamos de página y volvemos a inicializar la variable
  end;
end;

Espero que esto te sirva de algo
Saludos