请问一个FastReport直接打印问题

Question

下面是我写的代码，请各位指点一下
procedure Tfrm_report.btPrintClick(Sender: TObject);
// **** 直接打印
var
   sReportfile:String;
begin
  inherited;
  sReportfile:= PApp_path+'reports\客户资料.frf';
  if FileExists(sReportfile) then begin
     frReport1.LoadFromFile(sReportfile);
     frReport1.PrepareReport;
     frReport1.PrintPreparedReport('', 1, False, frAll);  //直接打印
  end
  else begin
     Application.MessageBox('没有这个文件，可能报表文件已丢失!','提示信息',MB_OK);
     Exit;
  end;
end;
这样试也是先直接打印一次，再跳出打印对话框，按确定就会再次打印，当然取消就不打印
能不能直接打印一份后，不再跳出打印对话框，谢谢
不好意思，我的分数不多了

Answer 1

打印之前存一下就OK了！
    frReport.Preview=nil;
    frReport.SavePreparedReport('*.frf');//随便取个名字存一下
    if  frReport.PrepareReport then
        frReport.PrintPreparedReport('',1,false,frAll);

Answer 2

1.设置属性
frReport.ShowPrinfDialog:=False;2.运行一下代码
frReport1.PrepareReport;
frReport1.ShowPreparedReport
这样就不显示了