报表打印条件的问题

Question

你是什么样的报表预览？是在dbgrid中看看的，还是已经形成在qr中的报表预览？
你还是用dbgrid进行报表预览，满意了再形成报表打印的好，如果是在qr中的报表预览，就得是在它的工具栏上加功能了，不过我不会，没用过。

Answer 1

在onneeddata事件中写代码
下面是我以前程式的代码, 不很好，各位兄弟别见笑，一起研究
procedure TFGatheringReceipt10.NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  inherited;
  moredata:=nowquery.fields[0]>=100;//过滤条件
  if moredata then
  begin
    QuickRep1.QRPrinter.Progress:=QuickRep1.QRPrinter.Progress+1;
  end
  else
    QuickRep1.QRPrinter.Progress:=100;end;