第一种 使用Print 没有预览直接打印
procedure TForm1.Print1Click(Sender: TObject);
begin
frxReport1.PrepareReport(); //准备打印
frxReport1.LoadFromFile(ExtractFilePath(paramstr(0)) + '3022.fr3'); //调入模版
frxReport1.Print;//打印对话框 直接打印
end;
第二种 不需要写 PrepareReport 预览后再打印
procedure TForm1.Print1Click(Sender: TObject);
begin
frxReport1.LoadFromFile(ExtractFilePath(paramstr(0)) + '3022.fr3'); //调入模版
frxReport1.ShowReport(); //预览打印对话框
end;