Code ran properly in debug but DID NOT affect display at all.
Code:
Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
If Me.tbCount > 1 Then
Me.GroupFooter1.Height = 360 'Set height to 0.25" (1/4")
Me.lblCatLabel.Height = 340 'Set height to 0.236"
Me.lblCatLabel.Visible = True
Me.tbCatTotal.Height = 340 'Set height to 0.236"
Me.tbCatTotal.Visible = True
If Len(CatID & "") = 0 Then
Me.lblCatLabel.Caption = "Total Other: "
Else
Me.tbCatTotal = "Total " & GetCatName([CatID]) & " : "
End If
Else
Me.lblCatLabel.Height = 115 'Set height to 0.08"
Me.lblCatLabel.Visible = False
Me.tbCatTotal.Height = 115 'Set height to 0.08"
Me.tbCatTotal.Visible = False
Me.GroupFooter1.Height = 144 'Set height to 0.1"
End If
End Sub