v8: Вывод на печать

 Процедура ТН()  Экспорт

		

	ПоДокументуКоличество = 0;        // Итог по документу

	ПоЛистуКоличество     = 0;        // Итог по листу



	                                 // Количество строк на странице

	СтрокНаЛисте          = 30;

	Стр                   = 0;                                      

	НомерЛиста            = 1;       // Первый номер листа     

    	

	

	Таб = Новый ТабличныйДокумент;

	Макет = ПолучитьОбщийМакет("ТН");

	// Секция номерация станиц

	НумерацияСтраниц = Макет.ПолучитьОбласть("НумерацияСтраниц");

	НумерацияСтраниц.Параметры.Заполнить(ЭтотОбъект);

	// Данные для ...

	НумерацияСтраниц.Параметры.НомерЛиста     = НомерЛиста;

	Таб.Вывести(НумерацияСтраниц);

    // Секция шапка

	Шапка = Макет.ПолучитьОбласть(" Шапка");

	Шапка.Параметры.Заполнить( Шапка);

	// Данные для ...

	Таб.Вывести( Шапка);

	

		

	// Разворот ТЧ

	Строка = Макет.ПолучитьОбласть("Строка");

	Для Каждого СтрокаТЧ Из Товары Цикл

		

		Строка.Параметры.Заполнить(СтрокаТЧ);

		// Данные для ...

		Строка.Параметры.НС            = СтрокаТЧ.НомерСтроки;

		Строка.Параметры.ТМЦ           = СтрокаТЧ.ТМЦ;

		Строка.Параметры.ЕдИзм         = СтрокаТЧ.ТМЦ.ЕдиницаИзмерения;

		Строка.Параметры.Количество    = СтрокаТЧ.Количество;

		

		

		// Здесь ошибка  ????

		//  Количество=Количество;

		//ПоЛистуКоличество=ПоЛистуКоличество+Количество;

		//ПоДокументуКоличество=ПоДокументуКоличество+Количество;

		

		

		Если Стр>СтрокНаЛисте Тогда

			// Секция итог по странице  ????????????????????

			ИтогПоСтранице = Макет.ПолучитьОбласть("ИтогПоСтранице");

			ИтогПоСтранице.Параметры.Заполнить(ИтогПоСтранице);

			// Данные для ...

			Таб.Вывести(ИтогПоСтранице);

			

			Стр=0;

			Таб.ВывестиГоризонтальныйРазделительСтраниц();  // отделяем страницы после необходимого кол. строк (30)

			

			ПоЛистуКоличество=0;

			НомерЛиста=НомерЛиста+1;

			// Секция нумерация страниц

			НумерацияСтраниц = Макет.ПолучитьОбласть("НумерацияСтраниц");

	        НумерацияСтраниц.Параметры.Заполнить(ЭтотОбъект);

	        // Данные для ...

	        НумерацияСтраниц.Параметры.НомерЛиста     = НомерЛиста;

	        Таб.Вывести(НумерацияСтраниц);

			// Секция Шапка

           	Таб.Вывести( Шапка);

		КонецЕсли;

						

		Таб.Вывести(Строка);

		

		Стр=Стр+1;

	КонецЦикла;

	//Секция итог по страцице

	ИтогПоСтранице = Макет.ПолучитьОбласть("ИтогПоСтранице");

	ИтогПоСтранице.Параметры.Заполнить(ИтогПоСтранице);

	// Данные для ...

	Таб.Вывести(ИтогПоСтранице);

	// Секция итог по документу

	ИтогПоДокументу = Макет.ПолучитьОбласть("ИтогПоДокументу");

	ИтогПоДокументу.Параметры.Заполнить(ИтогПоДокументу);

	// Данные для ...

	Таб.Вывести(ИтогПоДокументу);

	

		

	Таб.Показать();

	

КонецПроцедуры   

 ПоЛистуКоличество=ПоЛистуКоличество+СтрокаТЧ.Количество;