FastReport VCL打印多份文档并设置每份独立文本颜色的问题求助

核心问题分析 #

设计器自带的「Report - Options - Copies」是让打印机重复打印同一渲染结果，无法对每份副本的样式进行干预。你代码中出现的CopyName#值矛盾，是因为该变量仅在打印机多份模式下生效，但此模式下报表只渲染一次，后续副本都是重复输出，导致事件中修改的样式只作用于第一份，而变量显示却对应打印机的副本序号，从而出现不一致。

解决方案方向 #

必须放弃打印机多份设置，改用报表内生成独立副本页面的方式，手动控制每份的样式。以下是两种可行实现：

方案1：代码循环生成多份页面

1. 先关闭设计器中「Report - Options - Copies」的设置，将值改为1。
2. 使用代码循环克隆页面并设置每份的样式：

var
  i: Integer;
  CopyColors: array[0..3] of TColor;
  CopyNames: array[0..3] of String;
  TargetPage: TfrxPage;
begin
  // 初始化副本名称与对应颜色
  CopyNames[0] := 'PreviewCopy';
  CopyColors[0] := clYellow;
  CopyNames[1] := 'Copy 1';
  CopyColors[1] := clRed;
  CopyNames[2] := 'Copy 2';
  CopyColors[2] := clBlue;
  CopyNames[3] := 'Copy 3';
  CopyColors[3] := cl3DLight;

  // 先准备基础报表（不立即输出）
  frxReport1.PrepareReport(False);

  // 循环生成每份副本
  for i := 0 to 3 do
  begin
    // 克隆基础页面
    TargetPage := frxReport1.Pages[0].Clone as TfrxPage;
    frxReport1.Pages.Add(TargetPage);

    // 设置Memo2的颜色与文本
    with TargetPage.FindObject('Memo2') as TfrxMemoView do
    begin
      Color := CopyColors[i];
      Text := '>>' + CopyNames[i] + '<<';
    end;

    // 设置显示副本名称的Memo（替换为你实际的控件名）
    with TargetPage.FindObject('MemoCopyName') as TfrxMemoView do
    begin
      Text := CopyNames[i];
    end;
  end;

  // 删除初始的基础页面（可选，根据需求调整）
  frxReport1.Pages.Delete(0);

  // 预览或打印最终报表
  frxReport1.ShowPreparedReport;
end;

方案2：数据绑定动态生成副本

通过内存数据集作为数据源，用数据带区循环生成每份副本：

1. 在报表中添加一个DataBand，绑定到内存数据集。
2. 代码端准备数据源：

var
  CopyData: TStringList;
begin
  CopyData := TStringList.Create;
  // 每行格式：副本名称|颜色常量名
  CopyData.Add('PreviewCopy|clYellow');
  CopyData.Add('Copy 1|clRed');
  CopyData.Add('Copy 2|clBlue');
  CopyData.Add('Copy 3|cl3DLight');

  // 将字符串列表作为报表数据源
  frxReport1.DataSet := CopyData;
  frxReport1.PrepareReport;
  frxReport1.ShowReport;

  CopyData.Free;
end;

3. 在DataBand的OnBeforePrint事件中设置样式：

procedure DataBand1OnBeforePrint(Sender: TfrxComponent);
var
  ColorStr: String;
begin
  // 获取当前副本的名称
  MemoCopyName.Text := frxReport1.DataSet['0'];
  ColorStr := frxReport1.DataSet['1'];

  // 设置Memo2的颜色
  case ColorStr of
    'clYellow': Memo2.Color := clYellow;
    'clRed': Memo2.Color := clRed;
    'clBlue': Memo2.Color := clBlue;
  else
    Memo2.Color := cl3DLight;
  end;

  Memo2.Text := '>>' + MemoCopyName.Text + '<<';
end;

关键注意事项 #

• 绝对不要依赖打印机多份模式下的CopyName#变量，此变量仅用于标识打印机输出的副本序号，无法控制报表渲染逻辑。
• 确保每份副本的样式修改在独立页面渲染前触发，或通过数据绑定动态关联样式参数。

内容的提问来源于stack exchange，提问作者Arjan