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
        PubData1.RMReport1.LoadFromBlobField(TBlobField(QueryFormat.FieldByName('PFormat'))); //加载打印格式
        PubData1.RMReport1.DoublePass:=True;
        if PubData1.RMReport1.PrepareReport then  //生成
        begin

          PubData1.RMReport1.PrintReport;  //开始打印，但会先弹出打印机设置窗口

          if not GV_PrintDoc then  //这里是重点，这个变量判断如果用户没有点确定，没有打印就在这里退出
            Break;
          PubData1.RMReport1.ShowPrintDialog:=False;  //既然用户选择打印第一张，后面就不用再弹出设置窗口了
        end;
        Next;
      end;
    end;
    MessageDlg('快递单已经全部发送到打印机！',mtInformation,[mbOK],0);
  except
    on E:Exception do
    begin
      MessageDlg('快递单打印失败！原因是：'+#13#10+E.Message,mtWarning,[mbOK],0);
    end;
  end;
  GV_PrintDoc:=False;
end;