报表份数功能异常：发货单设2份仅打1页，需输出3页

看起来你遇到的核心问题是：当设置Number of Copies为2时，报表只输出1页，但预期应该是3页（正本+2份副本）。结合你给出的配置和代码片段，我来帮你分析可能的问题点和修复方案：

问题背景回顾 #

请求页配置 #

相关代码片段 #

// CopyLoop - OnPreDataItem()
NoOfLoops := 1 + ABS(NoOfCopies);
CopyText := '';
SETRANGE(Number,1,NoOfLoops);
OutputNo := 1;

// CopyLoop - OnAfterGetRecord()
IF Number > 1 THEN BEGIN
    CopyText := Text001;
    OutputNo += 1;
END;
CurrReport.PAGE...

核心问题排查与修复 #

1. 请求页字段未绑定到报表变量（最可能的原因） #

从你的请求页配置可以看到，NoOfCopies字段的SourceExpr是空的。这意味着用户在请求页输入的份数根本没有传递到报表的逻辑变量中，报表里的NoOfCopies始终是默认值0。这样计算出来的NoOfLoops = 1 + ABS(0) = 1，自然只会循环打印1页。

修复步骤：

• 在报表的全局变量列表中创建一个NoOfCopies变量，类型选择Integer；
• 回到请求页的NoOfCopies字段配置，将SourceExpr设置为这个全局变量，确保用户输入的数值能正确传递到报表逻辑里。

2. 确认CopyLoop数据项的数据源配置 #

CopyLoop是用来控制打印循环次数的数据项，必须使用正确的数据源才能生效：

• 确保CopyLoop的数据项类型是Integer虚拟表（系统内置的虚拟表，专门用于循环计数场景）；
• 检查是否有其他代码（比如OnPreDataItem之外的事件）修改了Number的范围，比如额外的SETRANGE或SETFILTER会覆盖你设置的1到NoOfLoops范围，导致循环次数错误。

3. 补全代码逻辑的完整性 #

你的代码片段到CurrReport.PAGE...中断了，这里需要确认：

• 如果CopyLoop是报表的主数据项，下面嵌套了发货单的头、明细等数据项，那么只要CopyLoop正常循环，嵌套的内容就会自动重复打印，不需要额外调用PAGEOUT；
• 如果需要手动触发页面输出，确保在CopyLoop - OnAfterGetRecord()里调用CurrReport.PAGEOUT()，这样每次循环都会生成独立的一页；
• 检查CopyText变量是否在报表设计界面有对应的文本控件，用来显示“副本”标识，这样用户能区分正本和副本页面。

4. 排查隐藏的属性设置 #

• 检查报表的PrintOnlyOneCopy属性是否被设置为Yes：如果开启这个属性，系统会强制只打印一份，直接忽略你的循环逻辑；
• 确认CopyLoop数据项的PrintOnlyIfDetail属性是No：如果设为Yes，当没有明细数据时会跳过循环，虽然发货单一般有明细，但还是确认一下避免意外；
• 检查是否有其他事件（比如OnPreReport或其他数据项的OnPreDataItem）修改了NoOfCopies或NoOfLoops的值，导致循环次数被意外覆盖。

按照上面的步骤排查修复后，当你设置Number of Copies为2时，报表应该能正确输出3页（1份正本+2份副本）。

内容的提问来源于stack exchange，提问作者Cátia Matos