fastreport vcl 6 简易打印

第一种 使用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;