Exportando a Excel desde Quickreport 5

[AlbertoG]

Oscarac
Muchas gracias por tu pronta respuesta

Algo similar a lo que muestras lo había hecho antes cuando no tenía QR5 sino el que viene con delphi7 que creo que es la versión 3 pero entonces el problema que tenía era que no podía hacer que aparecieran bandas de subtotales entre los registros, es decir, es un reporte de venta de productos organizado por proveedor en un período de tiempo, de forma que cada que finalizan los productos vendidos de un proveedor se totaliza esa parte y a continuación vienen los productos de otro proveedor y así sucesivamente hasta que termina el reporte, bueno, eso no lo podía hacer con código, por lo que opté por la solución de instalar QR5 y ahora si puedo exportar directamente con el componente QRexcelfilter toda la data que necesito pero éste no respeta los anchos de las columnas e incluso coloca columnas vacias en excel entre los datos, por eso necesito saber como indicarle al componente (principalmente) los anchos que debe tener cada columna en excel y no veo como establecer comunicación con el componente a través de código, actualmente lo que hago es colocar el componente en el reporte y éste genera entonces la opción de que lo guarde en formato xls y ya, pero no sé como tratarlo a través de código.

Espero tu comentario al respecto, gracias

[[oscarac]]

me parece que en ese componente no hay mucho que configurar... auqnue veo que yo uso el Qr 4.06

[AlbertoG]

eso es lo que yo creo, pero entonces de ser así sabrías como puedo insertar esas bandas de subtotales en excel a través de código, es decir, las bandas "group footer" por ejemplo? de forma que pueda mostrar subtotales entre el reporte y no solo al final de éste, gracias

[[oscarac]]

mmm eso me parece que tendrias que hacerlo en fomra manual
mas o menos el pseudocodigo seria asi

Código Delphi [-]
qryEjemplo.first
vCuenta := qryEjemploCuenta.asstring;
While not qryEjemplo.eof do
Begin
   While vCuenta = qryEjemploCuenta.Asstring do
   Begin
     ... instrucciones
   End
   // cuando la cuenta termine diferente coloco los totales y blanqueo las variables
   worksheet.cells [x,y] := 'Totales';
   vCuenta := qryEjemploCuenta.asstring;
end

y asi sucesivamente

[AlbertoG]

Muy bien, pondré en práctica lo que me muestras, muchas gracias nuevamente y si encuentro la manera en base a tu pseudocódigo te dejo saber por un privado, gracias por tu tiempo.

AlbertoG

[[oscarac]]

no al privado...
mejor por aqui