Delphi的ReportMachine 如何判断用户在打印对话框点了“确定”还是“取消”

最近在做打印功能时遇到问题了，ReportMachine(以下简称RM)的客户在批量打印时，在ShowPrintDialog为True的情况下，如果第1个取消了，意味着客户是想要取消打印的，但是要逐个取消很麻烦，因此我们就要判断用户点了打印机窗口里的取消“按钮”。

从属性上看，目前没有发现有用的属性，只能在事件上下文章了。原理是定义一个全局变量为False，在RM产生打印事件后变更变量的属性为True，在PrintReport过程执行后判断这个变量，如果变量还是为False说明用户最终没有打印，就可以退出了，否则就继续打印。在XE10的RM有OnBeginPrintPage事件可以判断，但D7没有这个事件，有BeforePrintBand，PrintReportEvent可以试下，我发XE10的代码给大家参考，D7的原理也一样

procedure TPubData1.RMReport1BeginPrintPage(aCanvas: TCanvas; aPrintRect: TRect;
  aScaleX, aScaleY: Double);
begin
  GV_PrintDoc:=True;  //这个变量为True表示用户确定了打印
end;

procedure TForm_ExpressBill.ActionPrintExecute(Sender: TObject);
var
  vTmp:string;
begin
  inherited;
 PubData1.RMReport1.ShowPrintDialog:=True;    //每次打印前都要弹出打印机设置窗口
  try
    with QueryList do
    begin
      First;
      while not Eof do  //开始批量打印
      begin