Foros Club Delphi - impresion de informe contable con string grid y QUICK REPORT

El problema es el siguiente:

Tengo 2 FORMS (InformeCC) y (ImprimeCC)

EN INFORMECC(Tform)

tengo un campo cliente_id(Tedit) que toma el ID del CLIENTE y mediante
un boton GENERA INFORME llena un StringGrid (sgInformeCC) con la
siguiente estructura de diseño :

FECHA________DETALLE__________________DEBE_____HABER_______TOTAL
25/04/2004___pago a cuenta_____________________$ 200__________$ 200
26/05/2004___compra de tv_______________$1200________________$ 1000

en el mismo form hay un boton GENERA IMPRESION que le paso el siguiente
codigo

Código:

 

                  ImprimeCC.qrInforme.Prepare;

                  ImprimeCC.qrInforme.QRPrinter.Save('REPORT.QRP');

                  ImprimeCC.qrInforme.QRPrinter.Free;

                  ImprimeCC.qrInforme.QRPrinter := nil;

                  ImprimeCC.qrInforme.Preview;

EN EL FORM (ImprimeCC) TFORM

hay un QR TquickReport

con la siguientes bandas:

Page Header
Title
Column Header
Detail
Summary
Page Footer

En La banda detail tengo un QRLabel llamado QRfecha.

Para pasarle la string grid al reporte utilice el procedimiento de ROMAN
dentro de OnNeedData del qrInforme. Que utiliza el string del otro formulario( informeCC).

Código:

 

  if ItemIndex < InformeCC.sgInformeCC.RowCount then

  begin

        QRFecha.Caption := InformeCC.sgInformeCC.Cells[0, ItemIndex];

   end;



  Inc(ItemIndex);

  MoreData := ItemIndex <= InformeCC.sgInformeCC.RowCount;

:confused:

No se si estaré colocando mal el ITEMINDEX o estoy equivocandome en los Band pero cuando ejecuto el boton GENERA IMPRESION me tira un preview vacio sin la Hoja. no me muestra ni siquiera la hoja en la previsualización.

Y cuando reemplazo el ItemIndex por un valor (ej. 1 :rolleyes: ) para ver si funciona imprimiendo nada mas la fila 1 me dice ACCES VIOLATION y un error raro .

donde puede estar el error ? que es lo que tengo que hacer ?

Muchisimas gracias. y disculpen lo largo que es el post. =(

:confused: