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

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

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

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

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

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

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