Groupings to Dynamic Report

Dim vargrplevel As Variant 'holds grouping level of report

vargrplevel = CreateGroupLeve l(rpt.Name, "[INSERT FIELD NAME]", True, True)
rpt.Section(acG roupLevel1Heade r).Height = 400
rpt.Section(acG roupLevel1Foote r).Height = 400



This will also create headers/footers for the grouping level.