[Dexter182]

Empezado por Dexter182

Y lo que más me está haciendo renegar es que la primera impresión es diferente a todas las posteriores (en la primera impresión calcula mal la cantidad de renglones por hoja, no se por qué).

¡¡¡Logré resolver eso al menos!!!

Cambié esto:

Código Delphi [-]
Printer.Canvas.Font.Name := 'Arial';
Printer.Canvas.Font.Size := 10;
//Altura en pixeles de cada renglón
AltRenglon   := Printer.Canvas.TextHeight('H') + (Printer.Canvas.TextHeight('H') * 0.2);

Por esto:

Código Delphi [-]
//Altura en pixeles de cada renglón
AltRenglon  := AltText + (AltText * 0.2);

AltText es una constante que la definí en 48.

Saludos!