监控qreport是否打印！急！！！(50分)

类似于银行打存折，打印完成之后，给该客户的打印次数加 1 。
我将累加的部分写到quickreport的afterprint事件中， 可是没有打印（比如说没有纸等错误操作）
也执行该事件
放到brand的afterprint事件，监测是否打印（用事件的参数），不好用， 效果一样！
怎么办？
我就50分了。全送了！

别人的
来自：卷起千堆雪tyn, 时间：2001-11-5 8:06:00, ID：706714
判断打印是否完成以及是否因为故障中断，你可以检测打印缓冲池里的打印任务数：
发送消息WM_SPOOLERSTATUS，Label1的标题显示任务数目 .
private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
begin
Label1.Caption := IntToStr(msg.JobsLeft) +
'个打印任务';
msg.Result := 0;
end;

我也关心，我的机器上消息转不进去，为什么，急死人了