unigui+fastreport 打印【4】

procedure TUniFrm_Report.UniFormBeforeShow(Sender: TObject);
var
  rptFileName,url: string;
begin
  rptFileName := ‘demo.fr3‘;
  frxrprt1.Clear();
  try
   frxrprt1.LoadFromFile(UniServerModule.FilesFolderPath+rptFileName);                
   frxrprt1.PrintOptions.ShowDialog := false;
   frxrprt1.ShowProgress := false;
   frxrprt1.EngineOptions.SilentMode := true;
   frxrprt1.EngineOptions.EnableThreadSafe := true;
   frxrprt1.EngineOptions.DestroyForms := false;
   frxrprt1.EngineOptions.UseGlobalDataSetList := false;

   frxpdfxprt1.Background:=true;
   frxpdfxprt1.ShowProgress:=False;
   frxpdfxprt1.ShowDialog:=false;
   frxpdfxprt1.FileName:=UniServerModule.NewCacheFileUrl(False,‘pdf‘,‘‘,‘‘,url,true);
   frxpdfxprt1.DefaultPath := ‘‘;

   frxrprt1.PreviewOptions.AllowEdit := false;
   frxrprt1.PrepareReport();
   frxrprt1.Export(frxpdfxprt1);

   UniURLFrame1.URL := url;
  finally
    //CloseDB;
  end;
end;

procedure TUniFrmeWebEmbedBase_authoManage.act_PrtExecute(Sender: TObject);
var prt : TUniFrm_Report;
begin

  prt := TUniFrm_Report.Create(UniApplication);
  prt.ShowModal();


end;