ถ้ายังไม่รู้ จะบอกให้ก็ได้
แต่ถ้ารู้แล้วถือว่าไม่ได้บอกล่ะกัน

Option Compare Database
Option Explicit
Dim CntInPage As Integer

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
CntInPage = CntInPage + 1
If CntInPage = 10 Then
Me.Section(acDetail).ForceNewPage = 2
Else
Me.Section(acDetail).ForceNewPage = 0
End If

End Sub

Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer)
CntInPage = 0
End Sub

ขอบคุณครับ
หาวิธีมานานแล้วนะครับ