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

Question

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

Answer 1

用QR的ON　NEED　DATA事件中赋值

Answer 2

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;我刚测试出来的（工作需要没有办法）。