Ticket muy deja mucho espacio en blanco
1 Archivos Adjunto(s)
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 ; |
Hola.
Imagino que habrás comprobado que el memo que estás imprimiendo no tiene todas esas lineas en blanco al final, ¿no?. |
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 :) |
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 Cita:
|
La franja horaria es GMT +2. Ahora son las 22:46:26. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi