Function PrintLines(R As Report, TotGrp)
    Dim CtrX As Control
    TotCount = TotCount + 1
    If TotCount = TotGrp Then
        R.NextRecord = False
    ElseIf TotCount > TotGrp And TotCount < 50 Then
        R.NextRecord = False
        For Each CtrX In R
            If TypeOf CtrX Is TextBox Or TypeOf CtrX Is CheckBox Or TypeOf CtrX Is Label Then
               CtrX.Visible = False
            End If
        Next
    ElseIf TotCount > TotGrp And TotCount = 50 Then
        For Each CtrX In R
            If TypeOf CtrX Is TextBox Or TypeOf CtrX Is CheckBox Or TypeOf CtrX Is Label Then
               CtrX.Visible = False
            End If
        Next
    End If
End Function

และใน Report ให้ใส่โค๊ดต่างๆใน Event ต่างๆ ดังนี้

- ส่วน Declarations Section
'------------------------------------
Private Last_Page As Long
'------------------------------------

- ส่วน Event ต่างๆ บนรายงาน
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    If Me.TotRec Mod 50 <> 0 Then
        If Me.Page = Last_Page Then
            Call PrintLines([Report], Me.TotRec Mod 50)
        Else
            Call PrintLines([Report], Me.TotRec)
        End If
    End If
End Sub

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
    Call SetCount([Report])
End Sub

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    Call SetCount([Report])
    If Me.Page = Last_Page + (-Int(-([TotRec] / 50))) Then
        Last_Page = Last_Page + (-Int(-([TotRec] / 50)))
    End If
End Sub

คำสั่งพวกนี้ต้องใส่ตรงไหนหรือครับ ช่วยอธิบายหน่อยครับ