怎样把STRINGGRID中的数据通过报表的形式打印出来？

[周公梦游]

怎样把STRINGGRID中的数据通过报表的形式打印出来？

[mabaohua]

up,我也需要！

[WWWWA]

用QR的ON　NEED　DATA事件中赋值

[joky1981]

var
i : Integer; //全局变量

procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
i:= 0;
end;

procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
Inc(i);
MoreData:= (i<= Form1.StringGrid1.RowCount);
if MoreData then
QRLabel1.Caption:= Form1.StringGrid1.Cells[1,i];
end;

我刚测试出来的（工作需要没有办法）。