В обработчике печати не был сформирован табличный документ

Функция СформироватьПечатнуюФормуАкта(МассивОбъектов)  Экспорт
    Для каждого ТекДок из МассивОбъектов цикл
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.АвтоМасштаб        = Истина;
    ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДокумент.ОтображатьСетку = Ложь;
    ТабДокумент.ОтображатьЗаголовки = Ложь;

    //ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_УниверсальныйПередаточныйДокумент_ВПФ";
    ТабДокумент.ЭкземпляровНаСтранице = 1;
    Макет = ПолучитьМакет("Макет1");

    
    ДанныеПредставителяОрганизации = НовыеДанныеПредставителя();

    ОтветственныеЛицаОрганизации = ОтветственныеЛицаБППовтИсп.ОтветственныеЛица(ТекДок.Организация, ТекДок.Дата);
    ДанныеФизЛица = ОтветственныеЛицаОрганизации.РуководительФИО;
    ДанныеПредставителяОрганизации.Должность = ОтветственныеЛицаОрганизации.РуководительДолжность;
    ДанныеПредставителяОрганизации.ДолжностьНаименование =
    ОтветственныеЛицаОрганизации.РуководительДолжностьПредставление;
    
    
    
    ЗаполнитьЗначенияСвойств(ДанныеПредставителяОрганизации, ДанныеФизЛица);
    
    ДанныеПредставителяОрганизации.Представление = ФизическиеЛицаКлиентСервер.ФамилияИнициалы(ДанныеФизЛица);
    
    ДанныеПредставителяОрганизации.ИмяОтчество = СтрШаблон(
            НСтр("ru = '%1 %2'"),
            ДанныеФизЛица.Имя,
            ДанныеФизЛица.Отчество);
    ДанныеПредставителяОрганизации.ФИОПолные = ОбщегоНазначенияБПВызовСервера.ПолучитьФамилиюИмяОтчество(
        ДанныеФизЛица.Фамилия,
        ДанныеФизЛица.Имя,
        ДанныеФизЛица.Отчество,
        Ложь);
    ДанныеПредставителяОрганизации.ФИОРодительныйПадеж =
        СклонениеПредставленийОбъектов.ПросклонятьПредставление(ДанныеПредставителяОрганизации.Представление, 2);
        
    ДанныеПредставителяОрганизации.ДолжностьРодительныйПадеж =
        НРег(СклонениеПредставленийОбъектов.ПросклонятьПредставление(
            ДанныеПредставителяОрганизации.ДолжностьНаименование, 2));
    
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    КонтактныеЛица.ВидКонтактногоЛица КАК ВидКонтактногоЛица,
                   |    КонтактныеЛица.Должность КАК Должность,
                   |    КонтактныеЛица.Наименование КАК Наименование,
                   |    КонтактныеЛица.Фамилия КАК Фамилия,
                   |    КонтактныеЛица.Имя КАК Имя,
                   |    КонтактныеЛица.Отчество КАК Отчество
                   |ИЗ
                   |    Справочник.КонтактныеЛица КАК КонтактныеЛица
                   |ГДЕ
                   |    КонтактныеЛица.ОбъектВладелец = &ОбъектВладелец";
    Запрос.УстановитьПараметр("ОбъектВладелец", ТекДок.Контрагент);
    Выборка = ЗАпрос.Выполнить().Выбрать();
    
    Если Выборка.Количество()>0  тогда
         Выборка.Следующий();
    КонецЕсли;
    
    Обл =  Макет.ПолучитьОбласть("Шапка");
    Обл.Параметры.НомерАкта = ТекДок.Номер;
    Обл.Параметры.Дата = ТекДок.Дата;
    ТабДокумент.Вывести(Обл);
    Обл =  Макет.ПолучитьОбласть("Тело");
    
    Обл.Параметры.Заказчик = ТекДок.Контрагент.НаименованиеПолное;
    
    Если ТекДок.Организация.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда
        // Для ИП выводим только информацию об организации
        ПредставительОрганизации = ТекДок.Организация.НаименованиеПолное;
    Иначе
        ПредставительОрганизации = СтрШаблон("%1 %2",
        ПолучитьСклоненияСтроки(ВЫборка.Должность,,"ПД=Родительный")[0], 
        ПолучитьСклоненияСтроки(Выборка.Фамилия + " " + Выборка.Имя + " "+ Выборка.Отчество,,"ПД=Родительный")[0]);
    КонецЕсли;
    
    Обл.Параметры.РукЗаказчик =  ПредставительОрганизации;
    Обл.Параметры.Исполнитель = ТекДок.Организация.НаименованиеПолное;
    Обл.Параметры.РукИсполнитель = ДанныеПредставителяОрганизации.ДолжностьРодительныйПадеж + " " + ПолучитьСклоненияСтроки(ДанныеПредставителяОрганизации.ФИОПолные,,"ПД=Родительный")[0];    
    Обл.Параметры.НомерДоговора = ТекДок.ДоговорКонтрагента.Номер;
    Обл.Параметры.ДатаДоговора  = ТекДок.ДоговорКонтрагента.Дата;
    Обл.Параметры.Дата = ТекДок.Дата;
    Обл.Параметры.СуммаДокумента = ТекДок.СуммаДокумента;
    ФормСтрока = "Л = ru_RU; ДП = Истина";
    ПарПредмета="рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
    //ПрописьЧисла = ЧислоПрописью(2341.56, ФормСтрока, ПарПредмета);

    Обл.Параметры.СуммаПрописью = ЧислоПрописью(ТекДок.СуммаДокумента, ФормСтрока, ПарПредмета);
    Обл.Параметры.СумаНДС = Строка(ТекДок.Товары.ИТог("СуммаНДС") + ТекДок.Услуги.ИТог("СуммаНДС"));
    ТабДокумент.Вывести(Обл);
    Обл = Макет.ПолучитьОбласть("Подвал");
    Обл.Параметры.ДолжностьИсполнитель = ДанныеПредставителяОрганизации.Должность;
    Обл.Параметры.ИсполнительРуков =  ДанныеПредставителяОрганизации.Представление;
    Обл.Параметры.ИсполнительСокр =  ТекДок.Организация.НаименованиеСокращенное;
    
    Обл.Параметры.ДолжностьЗаказчик = ВЫборка.Должность;
    Обл.Параметры.ЗаказчикСокр = ТекДок.Контрагент.Наименование;
    Обл.Параметры.ЗаказчикРуков = ВЫборка.Фамилия + " "  + Лев(ВЫборка.Имя,1)+". " + Лев(Выборка.Отчество,1) + "." ;
    ТабДокумент.Вывести(Обл);
    КонецЦикла;
    Возврат ТабДокумент;

КонецФункции