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;
标签:打印机,对话框,frxReport1,delphi,打印,PrintOptions,不弹
From: https://www.cnblogs.com/txgh/p/17497963.html