PDA

Ver la Versión Completa : Ticket muy deja mucho espacio en blanco


ysaacn
26-12-2013, 17:57:18
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
26-12-2013, 18:15:46
Hola.

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

ecfisa
26-12-2013, 18:38:49
Hola ysaacn, bienvenido a Club Delphi :)

Como es costumbre con los recién llegados te invitamos a que leas nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).
Por favor cuando incluyas código Delphi, usa TAG's:

http://img403.imageshack.us/img403/3461/75416396.jpg

Saludos :)

José Luis Garcí
27-12-2013, 10:47:18
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)