Печать нескольких документов

Функция СформироватьПечатнуюОтчетПоПродукции(МассивОбъектов)
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.АвтоМасштаб = Истина;
	ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	
	ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Отчет по продукции_Возврат";
	
	НомерТипаДокумента = 0;
	
	УстановитьПривилегированныйРежим(Истина);
		
	НомерТипаДокумента = 0;
	
	УстановитьПривилегированныйРежим(Истина);
	
	ПервыйДокумент = Истина;
	
	Для Каждого Объект ИЗ МассивОбъектов Цикл
		
		Если Не ПервыйДокумент Тогда
			ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;
		
		ПервыйДокумент = Ложь;

	 	ДанныеДляПечати = ПолучитьДанныеДляПечатнойФормыОтчетаПоПродукции(МассивОбъектов);

		
		ЗаполнитьТабличныйДокументОтчетаЗаСмену(
		ТабличныйДокумент,
		ДанныеДляПечати
		);
		
		КонецЦикла;
		
	ТабличныйДокумент.ОтображатьСетку = Ложь;
	ТабличныйДокумент.Защита = Ложь;
	ТабличныйДокумент.ТолькоПросмотр = Истина;
	ТабличныйДокумент.ОтображатьЗаголовки = Ложь;
	Возврат ТабличныйДокумент;
КонецФункции


Функция ПолучитьДанныеДляПечатнойФормыОтчетаПоПродукции(МассивОбъектов) Экспорт 
	
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("СсылкаНаДокумент", МассивОбъектов[0].Ссылка);

	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ОтчетРеализацияТоваров.Организация КАК Организация,
	|	ОтчетРеализацияТоваров.Номер КАК Номер,
	|	ОтчетРеализацияТоваров.Дата КАК Дата,
	|	ОтчетРеализацияТоваров.Ссылка КАК Документ,
	|	""ООО Тандыр"" КАК Контрагент
	|ИЗ
	|	Документ.РеализацияТоваров КАК РеализацияТоваров
	|ГДЕ
	|	РеализацияТоваров.Ссылка = &СсылкаНаДокумент";
	

	Шапка = Запрос.Выполнить().Выбрать();
	    		
	Запрос.Текст =
"ВЫБРАТЬ
|	РеализацияТоваровТовары.Количество КАК Количество,
|	РеализацияТоваровТовары.Номенклатура КАК Номенклатура,
|	РеализацияТоваровТовары.Номенклатура.ЕдиницаИзмерения КАК Единицы,
|	РеализацияТоваровТовары.НомерСтроки КАК ПП
|ИЗ
|	Документ.РеализацияТоваров.Товары КАК РеализацияТоваровТовары
|ГДЕ
|	РеализацияТоваровТовары.Ссылка = &СсылкаНаДокумент";

	РезультатЗапроса = Запрос.Выполнить().Выбрать();

	
	РезультатПоШапке          = Шапка;
	РезультатПоТабличнойЧасти = РезультатЗапроса;
	
	СтруктураДанныхДляПечати 	= Новый Структура("РезультатПоШапке, РезультатПоТабличнойЧасти",
	                                               РезультатПоШапке, РезультатПоТабличнойЧасти);
	
	Возврат СтруктураДанныхДляПечати;


КонецФункции // ПолучитьДанныеДляПечатнойФормыОтчета()