impresion de datos que estan en un string Grid

[santiago14]

buen dia, estoy tratando de imprimir con QReport una serie de datos que estan en un stringGrid y no se como hacerlo, estuve buscando por este foro y no encontré nada que me ayudara.
Bueno, espero que puedan ayudarme.
Gracias.

[roman]

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:


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;


ItemIndex es una variable que debes inicializar a 1 (primera fila no fija) justo antes de mandar imprimir el reporte.

Las componentes QRLabel están en una banda detalle.

// Saludos

[santiago14]

Gracias Roman, funciona muy bien.

[lroblesco]

Leyendo este hilo, me di cuenta, que mis necesidades respecto al stringrid son un poco diferentes. Yo tengo una fila fija y una columna fija. Como cambiaria el codigo para este problema. Si el numero de filas y columnas varian de una corrida del sistema a otra. Como modifico el numero de etiquetas en el Qrep? Gracias de antemano