Albano
20-01-2005, 17:14:31
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?
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?