Cita:
Empezado por nelostanley
y si quisiera que el detalle te salga ordenado ...es decir
cant. Descripcion Precio
1 Producto1 12.00
2 Producto2 15.00
se puede ??, el codigo anterior funciona perfecto peor el ordden del detalle no es estetico.
Me quiero volver changos hasta en el mensaje me salio desordenado el reporte
|
Lo que yo hago para que los datos se vean correctamente alineados es esto:
Código Delphi
[-]
function TFSalida.RJ(cString:string;nRJustOffset:integer):integer;
begin
Result := nRJustOffSet - Printer.canvas.TextWidth(cString);
end;
var
Importe: string;
printer.BeginDoc;
with printer.canvas do begin
Y := 100;
TextOut(1600,Y,QConsumosFecha.AsString);
TextOut(2100,Y,QConsumosDescripcion.AsString);
Importe := Format('%10.2m',[QConsumosImporte.AsFloat]);
X := RJ(Importe,3100);
TextOut(3100,Y,Importe);
end;
printer.EndDoc;
Salud OS