怎样将STRINGGRID的内容用报表打印出来？

Question

你可使用quickrep打印.
在打印时,要在quickrep的onneeddata中读取stringgrid中的内容.
好运!

Answer 1

moredata := true;
  if l >= form.StringGrid1.RowCount then
  begin
    moredata := false;
    qrlabel25.caption := '统计日期:' + formatdatetime('dddddd', now);
  end;
  qrlabel9.Caption := form.StringGrid1.Cells[0, l];
  qrlabel10.Caption := form.StringGrid1.Cells[1, l];
  qrlabel16.Caption :=form.StringGrid1.Cells[2, l];
  qrlabel17.Caption := form.StringGrid1.Cells[3, l];
  qrlabel18.Caption := form.StringGrid1.Cells[4, l];
  qrlabel19.Caption := form.StringGrid1.Cells[5, l];
  qrlabel20.Caption := form.StringGrid1.Cells[6, l];
  qrlabel21.Caption := form.StringGrid1.Cells[7, l];
  qrlabel22.Caption := trim(form.StringGrid1.Cells[8, l]);
  qrlabel23.Caption := form.StringGrid1.Cells[9, l];
  l := l + 1;其中l要在beforeprint中设初值.
好运!

Answer 2

也可以用print object。什么东东都可以打出来