Delphi 如何在不显示或打印的情况下执行TQuickRep（quickreport）？

我需要运行一个报告（TQuickRep）仅用于导出，不打印或显示。 Prepare方法不起任何作用。 beforeprints或afterprints事件不会激发

前

---

这应该适合您…（我正在寻找一个类似这样的解决方案，下面的代码适合我。）

---

将活动打印机设置为

Microsoft Print to PDF

设备后，您是否尝试过打印它？不，我不需要打印。我需要在静默模式下创建pdf文件，并将其显示在导航器中。使用FastReports很简单。那么为什么不使用FastReports呢？QR默认情况下没有此功能，我们使用第三方组件导出到PDF，尤其是对于我们不想转换为FR的旧报告。这是不使用QR并切换到FR的众多原因之一，这在所有方面都更好。好的。谢谢那我就用FR！；）

var rep: TMyQuickRep; //TMyQuickRep is a report TQuickRep
begin
  rep := TMyQuickRep.Create(Self);
  try
    rep.SomeData := somedata;
    rep.DataSet  := somDataSet;
    rep.Prepare;
    //rep.Run? there isn´t a method for run
    rep.ExportToFilter(TQRPDFDocumentFilter.Create('c:\temp\myreport.pdf'));  
    //pdf is an empty page
  finally
    FreeAndNil(rep);
  end;
end;

rep.ExportToFilter(TQRPDFDocumentFilter.Create('c:\temp\myreport.pdf')); 
rep.Print;