Estimados colegas:
Intentare Explicarles lo que ando tratando de hacer. Resulta que debo imprimir un reporte de ventas, cuyos datos los obtengo a traves de una consulta (Query). Los datos que debe contener son el folio de la Venta, El total y la fecha. Son datos muy cortos. Haciendo el reporte de la forma basica, pues no hay ningun problema, es decir un registro por linea impresa, pero como son datos muy cortos, pues se desperdicia mucho espacio y por lo tanto son muchas hojas. Entoces lo que necesito es que los 3 campos formen 1 columna de impresion, de tal forma que en el ancho de la hoja puedan imprimirse 2 o 3 columnas.
intente hacer el llenado de dichas columnas de impresion horizontalmente a traves del siguiente codigo
Código Delphi
[-]
procedure TFormQRVentas.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
PrintedLines:=0;
totlineas:=ceil(myquery1.RecordCount/2);end;
procedure TFormQRVentas.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData:= ( PrintedLines< totlineas); if MoreData then
begin
QRlabel2.Caption:=Myquery1.Fields.Fields[0].AsString;
QRLabel3.Caption:=Myquery1.Fields.Fields[2].AsString;
QRLabel4.Caption:=Myquery1.Fields.Fields[1].AsString;
Myquery1.Next;
Q/Rlabel8.Caption:=Myquery1.Fields.Fields[0].AsString;
QRLabel9.Caption:=Myquery1.Fields.Fields[2].AsString;
QRLabel10.Caption:=Myquery1.Fields.Fields[1].AsString;
Myquery1.Next;
end;
Inc(PrintedLines);
end;
Y aunque efectivamente hace el llenado de los QRLabels, no los hace con los datos que le corresponden, como si los llenara aleatoriamente.
Alguien ha hecho algo parecido a esto? es la Forma correcta de hacer este tipo de Formato?
De antemano muchas Gracias
Alexis De la Cruz