在 FastReport VCL 5 中添加带上方的空间

Question

我有一个正在处理的发票表单，我使用页眉区域作为主数据（以便发票标题信息出现在每一页上），然后是一个主区域来显示发票的行项目和最后是另一个显示总数的主带（总数以多种货币打印）。我想将第二个主带与第一个主带分开，但我看不到这样做的方法。

PAGE HEADER (with invoice header)
MASTER DATA BAND (with invoice detail)
<need space here>
MASTER DATA BAND (with invoice totals)
FOOTER
PAGE FOOTER

更新： 以下是我的报告中的条带排列方式：

如果我将建议的代码放在 MasterData: Totals OnBeforePrint 中，那么这就是我得到的（我使用 40 而不是 5 以使差异明显）：

这是没有代码的样子：

这是我的代码：

procedure TotalsOnBeforePrint(Sender: TfrxComponent);
begin
  if Engine.FreeSpace > Totals.Height + Footer.Height + PageFooter.Height + 40 then
    Engine.CurY := Engine.CurY + 40;  
end;

（我翻转了 if 语句中的符号，否则它几乎永远不会执行。）

Answer 1

将空子带添加到主数据带 在 Child 的 OnBeforePrint 事件中使用：

Child1.Visible := 不是 Totals.Dataset.Eof;

Answer 2

根据@gpi 的评论，我向 MasterData:MasterData 带（技术上是 TariffRemarks 带的子）添加了一个子带（名为 Spacer）。然后，我将以下脚本添加到该 Child Band 的 OnBeforePrint 事件中：

procedure SpacerOnBeforePrint(Sender: TfrxComponent);
begin
  Spacer.Visible := MasterData.Dataset.RecNo = MasterData.Dataset.RecordCount - 1;
end;

这行得通。我不确定为什么 MasterData.Dataset.eof 不起作用，但我认为最后一条记录的 OnBeforePrint 事件在表超过最后一条记录并将 eof 标志设置为 true 之前触发。我想 Recno 是基于 0 的，所以 MasterData.Dataset.Recno = MasterData.Dataset.Recordcount 也不起作用。

Answer 3

如果详细总带是固定高度，则可以使用带的OnBeforePrint（脚本）。我已经使用了值 5 - 将其设置为您想要的任何间距，然后再打印：

procedure MasterDataTotalBandBeforePrint(Sender: TfrxComponent);
begin
  // See if there's room for the band between the bottom of the last
  // band (MasterDataDetail) and the footer and page footer.

  if Engine.FreeSpace > MasterDataTotalBand.Height + FooterBand1.Height +
                        PageFooter1.Height + 5 then
    Engine.CurY := Engine.CurY + 5;
end;