Access 报表 如何补充空白行

Access 创建报表后 不满页如何补充空白行呢，我解决了这个问题。

1. 创建表：命名：表21_报验空，字段设置：名称，数量；并创建20个空数据行

2. 创建查询：命名：查询21_报验，字段设置：名称，数量；并创建3行数据

3. 创建报表：命名：报表21_报验，报表使用 查询21_报验 自动生成报表。

4. 其次，报表的属性中，在打开事件中复制下边的代码。

Option Compare Database
Option Explicit

Private Sub report_open(Cancel As Integer)
'创建一个空表，空表字段与查询字段完全一致，将空表中增加40条空数据，使用UNION功能，将查询的数据与空表部分数据组合，使组合后的数据行数是20行的整倍数，从而实现每页都是20行。
    Dim i_ROW As Integer, S_name As String, S_name_Null As String
    If Report.Name = "报表21_报验" Then
        i_ROW = 20
        S_name = "查询21_报验"
        S_name_Null = "表21_报验空"
        
        
        If DCount("*", S_name) Mod i_ROW <> 0 Then
            'Me.RecordSource = "Select * from 查询21-仪表-报验 UNION ALL select TOP " & (i_ROW - DCount("*", "查询21-仪表-报验") Mod i_ROW) & "* from 表21-仪表-报验-null"
            Me.RecordSource = "Select * from " & S_name & " UNION ALL select TOP " & (i_ROW - DCount("*", S_name) Mod i_ROW) & " * from " & S_name_Null
            
        Else
            Me.RecordSource = "Select * from " & S_name
        End If
    End If
End Sub

5. 打开报表，报表自动生成，每页20行，不足的补充。