这个对话框好像代码可以设置不弹出的？这种情况就不好判断了。
用afterPrint事件不行？

如果有FastReport源码的话，应该可以

你跟踪FastReport中ShowReport函数
应该就可以设置一个状态字，供你在程序中使用了，即使程序不弹出打印对话框
修改后应该需要重新编译安装一下FastReport

一般的方法很难做到，因为Delphi并不能获取到打印对话框窗口中发生的消息，
以下是测试代码，但代码中并不能截获“取消”或“确定”按下后产生的message
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if not (Msg.hwnd in [Self.Handle,Button1.Handle,Memo1.Handle]) then
    Memo1.Lines.Add(Format('hwnd=$%x, message=$%x, wp=%d, lp=%d',[Msg.hwnd,Msg.message,Msg.wParam,Msg.lParam]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  PrintDialog1.Execute;
  Timer1.Enabled:=False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Application.OnMessage:=AppMessage;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  hwndPrintForm,
  hwndOkButton,
  hwndCancelButton:HWND;
begin
  hwndPrintForm := FindWindow(nil,'打印');
  hwndOkButton  := FindWindowEx(hwndPrintForm,0,nil,'确定');
  hwndCancelButton := FindWindowEx(hwndPrintForm,0,nil,'取消');
  Memo1.Lines.Add(Format('hwndPrintForm=$%x, hwndOkButton=$%x, hwndCancelButton=$%x',[hwndPrintForm,hwndOkButton,hwndCancelButton]));
end;

设计一个全局变量，代码中，只要打印了就加1。这只能大致，不能精确。因取消打印，或打印机未反映会，引起计数不准。

我也遇到了同样的问题，不过我已经解决了
https://mp.csdn.net/postedit/87912266

fast report的话可以写一个OnRunDialogs事件处理：

procedure frxReport1OnRunDialogs(var Result: Boolean);
begin
  Result := DialogPage1.ShowModal = mrOk;
  if Result then ...
end;

谢谢各位，已经找到解决方法， 在onpringreport 事件中去写，这个事件是捕获打印点击确定按钮触发，没有确定不会触发该事件，
然后通过全局变量去控制。
结贴