请问一个FastReport直接打印问题

[king20151111]

下面是我写的代码，请各位指点一下
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;
这样试也是先直接打印一次，再跳出打印对话框，按确定就会再次打印，当然取消就不打印
能不能直接打印一份后，不再跳出打印对话框，谢谢
不好意思，我的分数不多了

[king20151111]

有人可以帮帮我吗，分数虽然只有三十分，但是我的分数不多了呀

[king20151111]

行了

[bmwyc]

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

[birdhaha]

去掉preview就行了。

[yaven365]

1.设置属性
frReport.ShowPrinfDialog:=False;

2.运行一下代码
frReport1.PrepareReport;
frReport1.ShowPreparedReport
这样就不显示了