新增文章

文章标题分类内容

Section.ForceNewPage【强制分页】

使用 ForceNewPage 属性可以指定窗体节 (详细信息、页脚) 还是报表节 (页眉、详细信息、页脚) 打印在单独的页面上，而不是在当前页上打印。 可读/写 Byte 类型。

例如，可能将报表的最后一页定义为订单。 如果报表页脚的 ForceNewPage 属性设置为“节前”，则订单总打印在新的一页。

ForceNewPage 属性不适用于页面页眉或页面页脚。

ForceNewPage 属性使用下列设置：

0：无，(默认) 当前部分 (要为其设置属性) 部分打印在当前页上。
1：节前，当前节在新页的顶部打印。
2：节后，紧跟当前节的下一节在新页的顶部打印。
3：节前和节后，当前节在新页的顶部打印，下一个节也将在另一新页的顶部打印。

以下示例返回“按日期销售额”报表的详细信息部分的 ForceNewPage 属性设置，并将其分配给 变量intGetVal。

Dim intGetVal As Integer 
intGetVal = Reports![Sales By Date].Section(acDetail).ForceNewPage

----------

Access中的ForceNewPage属性‌用于控制报表或窗体节的分页行为。该属性可以指定窗体节（如主体节、页脚）是否在新的一页中打印，而不是在当前页继续打印。ForceNewPage属性适用于报表的主体节，但不适用于页面页眉或页面页脚‌12。
使用方法

1. 在报表设计中使用ForceNewPage属性‌：
        打开报表设计视图。
        选择需要设置分页的节（如主体节）。
        在属性的设置中，找到ForceNewPage属性并设置为True或False，以控制是否在新的一页打印。

2. 在代码中动态设置ForceNewPage属性‌：
        在报表的代码界面中，可以通过编写VBA代码来动态控制分页行为。例如，可以在报表的Format事件中编写如下代码：

这段代码会在每打印完指定行数后【强制分页】。

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

If 序号 Mod 每页行数 = 0 Then

Me.主体.ForceNewPage = True
    Else
        Me.主体.ForceNewPage = False
    End If

End Sub

以下是一个简单的示例代码，演示如何在报表的Format事件中设置ForceNewPage属性：
这段代码会在每打印完指定行数后强制分页，否则在当前页继续打印。

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

If Me.Section(acDetail).ForceNewPage = 1 Then

Me.Section(acDetail).ForceNewPage = 0 '在当前页继续打印

ElseIf row Mod 每页行数 = 0 Then '每打印完指定行数后强制分页

Me.Section(acDetail).ForceNewPage = 1 '新一页打印
    End If

End Sub