あした

Option Compare Database
Option Explicit

Dim lcount          As Long

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
    On Error GoTo ErrProc
    
    lcount = 0
    
Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " <グループヘッダー0_Format> " & Err.Description
    Resume Proc_EXIT
End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    On Error GoTo ErrProc
    
    lcount = lcount + 1
    Me.l_lcount = lcount
    
Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " <詳細_Print> " & Err.Description
    Resume Proc_EXIT
End Sub