我是新手，请教一个打印的小问题

Question

你如果已经查询出来了，那么，如下：
QuickRep.DataSet := DBGrid.DataSet;
QRText.DataSet   := DBGrid.DataSet;

Answer 1

对了，这是我写的，有没有办法简略一点？
begin
  quickreport1.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText1.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText2.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText3.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText4.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText5.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText6.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText7.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText8.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText9.DataSet := dbgrid1.DataSource.DataSet;
  quickreport1.QRDBText10.DataSet := dbgrid1.DataSource.DataSet;
  QuickReport1.Preview;
end;