Дополню. Если свернуть приведенным в статье кодом, то группировки свернутся, но при раскрытии, если есть ещё нижележащие группировки, они также будут раскрыты. Предлагаю доработать:
СтандартнаяОбработка = Ложь;
КомпоновщикМакет = Новый КомпоновщикМакетаКомпоновкиДанных;
Макет = КомпоновщикМакет.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(Макет, , ДанныеРасшифровки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
У = ДокументРезультат.КоличествоУровнейГруппировокСтрок() - 1;
Пока У > 0 Цикл
ДокументРезультат.ПоказатьУровеньГруппировокСтрок(У);
У = У - 1;
КонецЦикла;
У = ДокументРезультат.КоличествоУровнейГруппировокКолонок() - 1;
Пока У >= 0 Цикл
ДокументРезультат.ПоказатьУровеньГруппировокКолонок(У);
У = У - 1;
КонецЦикла;