Ticket muy deja mucho espacio en blanco

[ysaacn]

Necesito Ayuda urgente tengo un ticket que al final deja mucho espacio en blanco y no lo puedo controlar
anexo parte del codigo

with Printer do
begin
Canvas.Font.Size := 9;
Canvas.Font.Name := 'Courier New';
Orientation := poLandscape ;
Y := 10;
X := 100;
Lineas := Memo1.Lines.Count - 1;
BeginDoc;
for I := 1 to lineas do begin
Canvas.TextOut(X,Y, Memo1.Lines.Strings[i]);
Y := Y + Canvas.TextHeight('Yy');
end;
//EndDoc;
printer.EndDoc;
end;
Memo1.Lines.Clear ;

[[newtron]]

Hola.

Imagino que habrás comprobado que el memo que estás imprimiendo no tiene todas esas lineas en blanco al final, ¿no?.

[ecfisa]

Hola ysaacn, bienvenido a Club Delphi

Como es costumbre con los recién llegados te invitamos a que leas nuestra guía de estilo.
Por favor cuando incluyas código Delphi, usa TAG's:



Saludos

[[José Luis Garcí]]

hola ysaacn, aparte de lo que te comenta newtron, debes comprobar que tanto por software como por hadware no tenga el salto de página puesto (a mi me paso) y si despues de esto sigue pasando mira que juegos de códigos tiene la máquina para retroceder el papel y usalo, claro esta si va para un programa comercial, deberás ponerlos en un fichero ini o en una tabla o XML, para que lo leas cada vez que sea necesario y puedas repetir la operación cada vez que te haga falta

Por ejemplo yo uso el código siguiente para as epson TM220

\027\075\N (Donde n va desde 0 a 48 micras)