打印stringgrid，为什么预览不出数据。

Question

我这样做就成功了,将 QRLabel1 ... QRLabel3放到DetailBand1上,,i与你的j相同,结果就出来了.procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  Moredata := True;
  with Form1 do
  begin
    if i>StringGrid1.RowCount then
    begin
      MoreData := False;
      exit;
    end;
    if MoreData then
    begin
      QRLabel1.Caption := StringGrid1.Cells[1,i];
      QRLabel2.Caption := StringGrid1.Cells[2,i];
      QRLabel3.Caption := StringGrid1.Cells[3,i];
    end;
    i:=i+1;
  end;
end;