[Alexis De la Cr]

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);// Dependiendo si son 2 columnas
end;


procedure TFormQRVentas.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  MoreData:= ( PrintedLines< totlineas); //totlineas es la cantidad de lineas a imprimir  
  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