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

最新推荐文章于 2025-05-14 09:41:33 发布

原创

最新推荐文章于 2025-05-14 09:41:33 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #ReportMachine #打印 #对话框 #Report

最近在做打印功能时遇到问题了，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