Ticket muy deja mucho espacio en blanco
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 ;
Última edición por ysaacn fecha: 26-12-2013 a las 17:06:26.
Razón: Agregar imagen del ticke
|