Crystal Report 6.0+VB6技术咨询：分组分页与子报表遮挡问题

我来针对你这两个Crystal Report 6.0 + VB6的问题给出具体解决方案，都是当年用这个版本踩过的坑，亲测有效：

针对Crystal Report 6.0，你可以通过组内计数器结合分页公式来实现，步骤如下：

• 第一步，创建组内记录计数器：
  打开字段资源管理器，右键「公式字段」→「新建」，命名为GroupRecordCounter，输入以下公式：

  WhilePrintingRecords;
  NumberVar cnt := cnt + 1;
  cnt
  

  把这个公式拖到对应分组的细节节里，然后右键它→「格式化字段」，勾选「隐藏」，这样它会在后台计数但不显示。

• 第二步，重置分组计数器：
  同样新建一个公式ResetGroupCounter，代码如下：

  WhilePrintingRecords;
  NumberVar cnt := 0;
  

  把这个公式拖到该分组的组页眉节，同样设为隐藏，确保每个分组开始时计数器归零。

• 第三步，设置分页触发条件：
  右键目标分组的组页脚节→「格式化节」，切换到「分页」选项卡，勾选「在后面分页」，然后点击旁边的「公式」按钮，输入判断逻辑：

  WhilePrintingRecords;
  NumberVar cnt;
  cnt Mod 3 = 0  // 这里的3替换成你需要的n值，比如每5条就写cnt Mod 5 = 0
  

  保存后预览报表，每个分组内每n条记录后就会自动插入分页符了。

这个问题我当年做项目时也遇到过，核心是页脚固定在页面底部，当子报表剩余内容高度小于页脚高度时就会被覆盖。既然不能删页脚，试试这几个方案：

方案1：让页脚根据子报表内容智能显示 #

这是最推荐的方案，既保留页码，又避免遮挡：

• 先确保子报表能自动扩展：右键子报表控件→「格式化子报表」，在「公共」选项卡勾选「可以扩大」，这样子报表会根据内容自动调整高度。
• 新建一个公式PageAvailableHeight，计算页面扣除页眉、页脚后的可用高度（单位是缇，Crystal Report的默认单位）：

  WhilePrintingRecords;
  PageHeight - (SectionHeader1.Height + SectionFooter1.Height)
  // 把SectionHeader1和SectionFooter1替换成你实际的页眉、页脚节名称
  

• 再建一个公式SubReportNeedsNewPage，判断子报表高度是否超出可用高度：

  WhilePrintingRecords;
  NumberVar subHeight := SubReport1.Height;  // 替换成你的子报表控件名称
  subHeight > {@PageAvailableHeight}
  

• 最后设置页脚节的抑制条件：右键页脚节→「格式化节」，勾选「抑制显示（无 Drill-Down）」，然后点击「公式」按钮，输入{@SubReportNeedsNewPage}。
  这样当子报表内容太多，剩余空间放不下时，页脚会被隐藏，子报表内容自动跳转到下一页，下一页的页脚正常显示（带页码），完美解决遮挡问题。

方案2：让子报表单独占一页（适合内容较多的子报表） #

如果子报表内容本身就比较长，右键子报表所在的细节节→「格式化节」，在「分页」选项卡勾选「在前面分页」，这样子报表会从新页面开始打印，完全避开页脚。但这个方法可能会产生空白页，需要根据你的报表布局判断是否适用。

方案3：取消页脚的固定底部属性 #

右键页脚节→「格式化节」，找到「保持在页面底部」的选项（不同版本可能叫「浮动」），取消勾选。这样页脚会紧跟在细节节内容之后，而不是固定在页面底部，自然不会遮挡子报表。但要注意，页码会出现在内容的末尾，而不是页面底部，需要确认是否符合业务要求。

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