HOLA
TRABAJO CON DELPHI 6 Y PARADOX
INTENTO IMPRIMIR EN UNA IMPRESORA LX-300
CON EL SIGUIENTE CODIGO
Cita:
procedure TMENU1.BitBtn1Click(Sender: TObject);
VAR
X,H:INTEGER;
begin
H:=10;
X:=300;
SEtPaperSize(x,710);
Printer.BeginDoc;
{definimos el sistema de medicion}
SetMapMode(Printer.Handle,MM_LoMetric);
pp.First;
WHILE NOT pp.eof do
BEGIN
PRINTER.Canvas.Font.Size:=12;
Printer.Canvas.TextOut(50,-H,ppCANT.asstring);
Printer.Canvas.TextOut(100,-H,PPDESCRIPCION.asstring);
Printer.Canvas.TextOut(500,-H,ppPRECIO.asstring);
Printer.Canvas.TextOut(600,-H,ppimporte.asstring);
H:=H-(-30);
pp.NEXT;
END;
Printer.EndDoc;
end;
|
IMPRIME BIEN PERO LA CANTIDAD, EL PRECIO Y EL IMPORTE NO LOS ALINEA
¿HAY UNA FUNCION QUE LOS ALINIE AUTOMATICAMENTE ??
P/E
EN IMPORTE SALE
156.30
2.30
157.30
NO SE SI ME EXPLIQUE DE ANTEMANO GRACIAS
