Выводит на печать 2 документа вместо одного.

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт 
	
	ПараметрыПечати = Новый Структура;
	
	Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "Реестр") Тогда
		
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, 
		"Реестр", НСтр("ru = 'Реестр почтовых отправлений'"),
		СформироватьПечатнуюФормуРеестра(МассивОбъектов, ОбъектыПечати, ПараметрыПечати));
	КонецЕсли;
	
	
	
КонецПроцедуры	

Функция СформироватьПечатнуюФормуРеестра(МассивОбъектов, ОбъектыПечати, ПараметрыПечати = Неопределено)
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеестрПочтовыхОтправлений";
	ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; 
	ТабличныйДокумент.АвтоМасштаб = Истина;
	
	
	ОрганизацияАЙТАТ = Справочники.Организации.НайтиПоРеквизиту("ИНН", "1650129028");
	
	Макет = ПолучитьМакет("Реестр"); 
	
	// Получаем области макета	
	
	ОбластьШапкаЗакПисьма = Макет.ПолучитьОбласть("ШапкаЗакПисьма");  
	ОбластьШапкаНЕЗакПисьма = Макет.ПолучитьОбласть("ШапкаНЕЗакПисьма");				
	ОбластьРеквизиты	= Макет.ПолучитьОбласть("Реквизиты");
	ОбластьШапкаСтроки = Макет.ПолучитьОбласть("ШапкаСтроки");
	ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ай_РеестрПочтовыхОтправленийДокументы.НомерСтроки КАК НомерСтроки,
	|	ай_РеестрПочтовыхОтправленийДокументы.Контрагент.НаименованиеПолное КАК КонтрагентНаименованиеПолное,
	|	ай_РеестрПочтовыхОтправленийДокументы.Описание КАК Описание,
	|	ай_РеестрПочтовыхОтправленийДокументы.Заказное КАК Заказное,
	|	ЕСТЬNULL(ай_РеестрПочтовыхОтправленийДокументы.Документ.Организация.НаименованиеПолное, """") КАК ОрганизацияНаименованиеПолное,
	|	ай_РеестрПочтовыхОтправленийДокументы.Документ.Организация.ИНН КАК ИННОрг,
	|	ай_РеестрПочтовыхОтправленийДокументы.Ссылка.Дата КАК Дата,
	|	ай_РеестрПочтовыхОтправленийДокументы.Документ.Организация КАК Организация,
	|	ай_РеестрПочтовыхОтправленийДокументы.Контрагент КАК Контрагент
	|ИЗ
	|	Документ.ай_РеестрПочтовыхОтправлений.Документы КАК ай_РеестрПочтовыхОтправленийДокументы
	|ГДЕ
	|	ай_РеестрПочтовыхОтправленийДокументы.Ссылка В(&МассивОбъектов)
	|ИТОГИ
	|	МАКСИМУМ(Дата)
	|ПО
	|	Заказное,
	|	Организация";
	
	Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаЗаказное = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	
	Пока ВыборкаЗаказное.Следующий() Цикл
		
		
		ВыборкаОрганизация = ВыборкаЗаказное.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		
		Пока ВыборкаОрганизация.Следующий() Цикл
			
			ВыборкаДетальныеЗаписи = ВыборкаОрганизация.Выбрать();
			
			Если ВыборкаЗаказное.Заказное Тогда
				ТабличныйДокумент.Вывести(ОбластьШапкаЗакПисьма);	
			Иначе
				ТабличныйДокумент.Вывести(ОбластьШапкаНЕЗакПисьма);	
			КонецЕсли;      
			
			
			
			
			// Заполняем и выводим таблицу 			
			НомерСтроки = 1;
			
			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
				
				// Заполняем и выводим Реквизиты и шапку таблицы
				
				Если НомерСтроки = 1 Тогда
					Если Не ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.ОрганизацияНаименованиеПолное) Тогда
						ОбластьРеквизиты.Параметры.Организация = ОрганизацияАЙТАТ.НаименованиеПолное;
						ОбластьРеквизиты.Параметры.ИННОрг = ОрганизацияАЙТАТ.ИНН; 
					Иначе 
						ОбластьРеквизиты.Параметры.Организация = ВыборкаОрганизация.ОрганизацияНаименованиеПолное;
						ОбластьРеквизиты.Параметры.ИННОрг = ВыборкаОрганизация.ИННОрг; 
					КонецЕсли;
					
					ОбластьРеквизиты.Параметры.Дата = Формат(ВыборкаДетальныеЗаписи.Дата, "ДЛФ=Д");
					
					ТабличныйДокумент.Вывести(ОбластьРеквизиты);
					ТабличныйДокумент.Вывести(ОбластьШапкаСтроки);
					
				КонецЕсли;
				
				
				ОбластьСтрока.Параметры.НомерСтроки = НомерСтроки;
				ОбластьСтрока.Параметры.КонтрагентНаименованиеПолное = ВыборкаДетальныеЗаписи.КонтрагентНаименованиеПолное;
				ОбластьСтрока.Параметры.Описание = ВыборкаДетальныеЗаписи.Описание;
				
				ПочтовыйАдресКонтрагента = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(ВыборкаДетальныеЗаписи.Контрагент,
				Справочники.ВидыКонтактнойИнформации.ПочтовыйАдресКонтрагента, ВыборкаДетальныеЗаписи.Дата, Истина);
				
				ОбластьСтрока.Параметры.ПочтовыйАдрес = ПочтовыйАдресКонтрагента;
				
				ТабличныйДокумент.Вывести(ОбластьСтрока);	
				
				НомерСтроки = НомерСтроки + 1;
				
			КонецЦикла;
			
			ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			
		КонецЦикла;
	КонецЦикла;
	
	
	
	
	Возврат ТабличныйДокумент;
КонецФункции