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