quickreport中对beforeprint，afterprint事件用法

Question

利用quickreport报表来完成报表设计，，遇到这么一个需求，
先调用预览，当点击打印 按钮时，打印次数+1，，，想利用最大组件quickreportrep组件中的afterprint事件来做相应的处理，可是好像不起作用， procedure Tfrmreport.QuickRep1AfterPrint(Sender: TObject);
begin
  showmessage('ss');
end;