Что то не выспался наверное сегодня. Пишу такой обход таблицы

Смысл собрать все элементы с одинаковой группой и засунуть в функцию печати.. и какая то хрень получается

номгруппы = 1;
первый=1;    
остальное=0;
СпНаправлений.УдалитьВсе();

Пока ТзНаправлений.ПолучитьСтроку()=1 Цикл
   Если ТзНаправлений.Группы>1 Тогда  
       Если ТзНаправлений.Группы <> номгруппы Тогда
       Если первый = 1 Тогда
               СпНаправлений.УдалитьВсе();
                       СпНаправлений.ДобавитьЗначение(ТзНаправлений.Направление);
           номгруппы = ТзНаправлений.Группы;
           первый=0;
           Иначе
           номгруппы = ТзНаправлений.Группы;
           Печать(1);
           СпНаправлений.УдалитьВсе();
                       СпНаправлений.ДобавитьЗначение(ТзНаправлений.Направление);
           КонецЕсли;
       Иначе
       СпНаправлений.ДобавитьЗначение(ТзНаправлений.Направление);
       КонецЕсли;  
           
    КонецЕсли;
   КонецЦикла;

сортировать ТЗ по группам не предлагать ?

отсортировано уже все, просто затупил в какой момент  в печать бросить список и обнулить для следущей группы

куда вот эти строчки пристроить ?

Печать(1);
СпНаправлений.УдалитьВсе();

они однозначно неправильно сейчас находятся и больше 2-х элементов я в список не записываю

опосля цикла нужно проверить на РазмерСписка, если он >0 то еще раз печать..

то бишь задача каждую группу с одинаковым номером в уже очищенный список засунуть

(4) Там еще одно условие в цикле, если группа = 1

Проц Печать()
  Ежели СпНаправлений.РазмерСписка()=0 Тогда
     Возврат;
  Конец Ежели;
КонецПроцы
.............

номгруппы = "";
СпНаправлений = СоздатьОбъект("СписокЗначений");

Пока ТзНаправлений.ПолучитьСтроку()=1 Цикл
   Если ТзНаправлений.Группы>1 Тогда  
       Если ТзНаправлений.Группы <> номгруппы Тогда
           Печать(1);
           СпНаправлений.УдалитьВсе();
       КонецЕсли;
       СпНаправлений.ДобавитьЗначение(ТзНаправлений.Направление);
   КонецЕсли;
КонецЦикла;
Печать(1);

так, точнее

Проц Печать()
  Ежели СпНаправлений.РазмерСписка()=0 Тогда
     Возврат;
  Конец Ежели;
КонецПроцы

.............

номгруппы = "";
СпНаправлений = СоздатьОбъект("СписокЗначений");

Пока ТзНаправлений.ПолучитьСтроку()=1 Цикл
   Если ТзНаправлений.Группы>1 Тогда  
       Если ТзНаправлений.Группы <> номгруппы Тогда
           Печать(1);
           номгруппы  = ТзНаправлений.Группы;
           СпНаправлений.УдалитьВсе();
       КонецЕсли;
       СпНаправлений.ДобавитьЗначение(ТзНаправлений.Направление);
   КонецЕсли;
КонецЦикла;
Печать(1);

(8) Спасибо, уже разобрался