Dim blnGroups As Boolean
Dim crxArea As CRAXDRT.Area
'Look for any Groups to determine whether or not to show the Group Tree
For Each crxArea In crxRpt.Areas
If crxArea.Kind = crGroupFooter Then
blnGroups = True
End If
Next crxArea
Viewer.EnableGroupTree = blnGroups