problemas con impresion de stringgrid

[Albano]

Hace unos dias me encontre, aqui en el foro, que para imprimir un stringgrid lo podia hacer de la siguiente manera:

Podrías usar el evento OnNeedData para alimentar al reporte con los datos provenientes del StringGrid.

En el siguiente ejemplo supongo que StringGrid es una rejilla sin columnas fijas, una fila fija y tres columnas:


Código Delphi:

procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin

if ItemIndex < StringGrid.RowCount then
begin

QRLabel1.Caption := StringGrid.Cells[0, ItemIndex];
QRLabel2.Caption := StringGrid.Cells[1, ItemIndex];
QRLabel3.Caption := StringGrid.Cells[2, ItemIndex];

end;
Inc(ItemIndex); MoreData := ItemIndex <= StringGrid.RowCount;

end;

Esto me sirvio, hice un programa de prueba muy sencillo y funcionó perfectamente, pero lo puse en mi programa principal y no funcionó, solo aparecen los datos del primer renglon del stringgrid. Alguien me puede ayudar?

[pkbza]

Probaste inicializando la variable ItemIndex en 1 (NO en ese mismo evento)... yo la creé de manera publica y la inicialicé en el evento StartPage del Reporte.

Saludos