Private Sub Report_Open(Cancel As Integer)
Dim grName As String, n As Byte
Const fTOT As String =  " & ', total'" 

Set frm = Forms( "pmPrint" )

isCapt = frm.isCap
If frm.isInd Then cInd = frm.tw
maxCapLen = DMax( "Len(sName)" ,  "zBudgGrBy" )

If Not CBool(frm.C1) Then GoTo ISDETAIL
    n =  0 
    grName = setRepGrp(frm.C1, n)
    Me.L0.ControlSource = grName
    If frm.F1 And CBool(frm.C2) Then Me.F0.ControlSource = grName & fTOT
    If frm.F1 And frm.H1 Then Me.gF0.BackColor = vbYellow
If Not CBool(frm.C2) Then GoTo ISDETAIL
    n =  1 
    grName = setRepGrp(frm.C2, n)


    Me.L1.ControlSource = grName
    If frm.F2 And CBool(frm.C3) Then Me.F1.ControlSource = grName & fTOT
    If frm.F2 And frm.H2 Then Me.gF1.BackColor = vbYellow
If Not CBool(frm.C3) Then GoTo ISDETAIL
    n =  2 
    grName = setRepGrp(frm.C3, n)
    Me.L2.ControlSource = grName
    If frm.F3 And CBool(frm.C4) Then Me.F2.ControlSource = grName & fTOT
    If frm.F3 And frm.H3 Then Me.gF2.BackColor = vbYellow
If Not CBool(frm.C4) Then GoTo ISDETAIL
    n =  3 
    grName = setRepGrp(frm.C4, n)
    Me.L3.ControlSource = grName
    If frm.F4 And CBool(frm.C5) Then Me.F3.ControlSource = grName & fTOT
    If frm.F4 And frm.H4 Then Me.gF3.BackColor = vbYellow
If Not CBool(frm.C5) Then GoTo ISDETAIL
    n =  4 
    grName = setRepGrp(frm.C5, n)
    Me.L4.ControlSource = grName
    If frm.F5 And CBool(frm.C6) Then Me.F4.ControlSource = grName & fTOT
    If frm.F5 And frm.H5 Then Me.gF4.BackColor = vbYellow
If Not CBool(frm.C6) Then GoTo ISDETAIL
    n =  5 
    grName = setRepGrp(frm.C6, n)
    Me.L5.ControlSource = grName
    If frm.F6 And CBool(frm.C7) Then Me.F5.ControlSource = grName & fTOT
    If frm.F6 And frm.H6 Then Me.gF5.BackColor = vbYellow
If Not CBool(frm.C7) Then GoTo ISDETAIL
    n =  6 
    grName = setRepGrp(frm.C7, n)
    Me.L6.ControlSource = grName
    If frm.F7 And CBool(frm.D0) Then Me.F6.ControlSource = grName & fTOT
    If frm.F7 And frm.H7 Then Me.gF6.BackColor = vbYellow
ISDETAIL:
If CBool(frm.D0) Then
    If isCapt Then
        Me.CD.ControlSource =  "= '" & Space((n + 1) * cInd) & frm.D0.Column(1) & ": ' & ["  & frm.D0.Column( 2 ) &  "]" 
            Else
        Me.CD.ControlSource = frm.D0.Column( 2 )
    End If
End If
End Sub


Private Function setRepGrp(Ctrl As Control, n As Byte) As String
Dim myCap As String, myLab As String
    With Ctrl
        myCap = Trim(.Column( 2 ))
        GroupLevel(n).ControlSource = myCap
        If isCapt Then
            myLab = Trim(.Column( 1 ))
            myLab = myLab &  ":"  & Space(maxCapLen - Len(myLab))
            setRepGrp =  "= '" & Space(n * cInd) & myLab & " ' & ["  & myCap &  "]" 
                Else
            setRepGrp =  "=["  & myCap &  "]" 
        End If
    End With
End Function