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 ;
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 ;