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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值