526互联

delphi FastReport 打印当前页（指定页）

发布时间 2023-06-23 15:57:30作者: txgh

FastReport 打印当前页（指定页）

属性和方法

TfrxPrintOptions.PageNumbers

property PageNumbers: String;

要打印的页码。

例子

打印指定页

procedure TForm1.Button9Click(Sender: TObject);
begin
  //加载报表
  frxReport1.LoadFromFile('C:\Users\Administrator\Desktop\测试报表.fr3');
  frxReport1.PrepareReport;
  //设置不弹出打印对话框
  frxReport1.PrintOptions.ShowDialog := False;
  //设置报表打印第2页
  //frxReport1.PrintOptions.PageNumbers := '2';
  //设置报表打印第2页和第3页（用“,”隔开）
  //frxReport1.PrintOptions.PageNumbers := '2,3';
  //设置报表打印1到3页
  //frxReport1.PrintOptions.PageNumbers := '1-3';
  //设置报表打印第3页后的（包含第3页）
  //frxReport1.PrintOptions.PageNumbers := '3-';
  //设置报表打印第1页，3到4页，6页后的（包含第6页）
  //如果报表只有5页，会打印第1、3、4页
  //frxReport1.PrintOptions.PageNumbers := '1,3-4,6-';
  frxReport1.Print;
end;

打印当前页

在窗体上放置TfrxReport组件frxReport1，放置TfrxPreview 组件frxPreview1

点击按钮 Button3 显示预览报表，点击按钮 Button10 打印预览报表的当前页

procedure TForm1.Button3Click(Sender: TObject);
begin
  //加载报表
  frxReport1.LoadFromFile('C:\Users\Administrator\Desktop\测试报表.fr3');
  //设置自定义预览报表
  frxReport1.Preview := frxPreview1;
  //预览报表
  frxReport1.ShowReport;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  //设置不弹出打印对话框
  frxReport1.PrintOptions.ShowDialog := False;
  //设置报表打印第选择页
  frxReport1.PrintOptions.PageNumbers := frxPreview1.PageNo.ToString;
  //打印
  frxPreview1.Print;
end;