526互联

delphi FastReport 直接打印（不弹出打印对话框）

发布时间 2023-06-22 16:17:25作者: txgh

FastReport 直接打印（不弹出打印对话框）

属性和方法

TfrxReport.PrintOptions

property PrintOptions: TfrxPrintOptions;

一组与报表打印相关的属性。

TfrxPrintOptions.Printer

property Printer: String;

打印机名称。

TfrxPrintOptions.ShowDialog

property ShowDialog: Boolean;

是否显示打印对话框。默认值为True。

TfrxPrintOptions.PrnOutFileName

打印到文件时打印输出的文件名。

property PrnOutFileName: String;

例子

直接打印

procedure TForm1.Button7Click(Sender: TObject);
begin
  //加载报表
  frxReport1.LoadFromFile('C:\Users\Administrator\Desktop\测试报表.fr3');
  frxReport1.PrepareReport;
  //设置不弹出打印对话框
  frxReport1.PrintOptions.ShowDialog := False;
  frxReport1.Print;
end;

指定打印机

procedure TForm1.Button8Click(Sender: TObject);
begin
  //加载报表
  frxReport1.LoadFromFile('C:\Users\Administrator\Desktop\测试报表.fr3');
  frxReport1.PrepareReport;
  //设置不弹出打印对话框
  frxReport1.PrintOptions.ShowDialog := False;
  //指定打印机
  frxReport1.PrintOptions.Printer := 'PDF打印机';
  //打印机是输出文件时，输出的文件名
  frxReport1.PrintOptions.PrnOutFileName := 'ceshi.pdf';
  frxReport1.Print;
end;