v8: Печать

 Функция ПечатьПКОвал(НазваниеМакета) 

	

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

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

	

	ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТЬ_ПКОвал";

	ТабДок.ПолеСверху = 5;

	ТабДок.ПолеСнизу  = 5;

	ТабДок.ПолеСлева  = 20;

	ТабДок.ПолеСправа = 5;

	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

	

	Если НазваниеМакета = "ПКОвал" Тогда

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

		ОбластьМакета.Параметры.Заполнить(ОбластьМакета);

		ТабДок.Вывести(ОбластьМакета);

	КонецЕсли;

	

	Возврат ТабДок;

	

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

 Процедура ПриОткрытии()

	

	ОбновитьДанные();

		

	ЭлементыФормы.ПолеДокумента.ОтображатьЗаголовки = Ложь;

	ЭлементыФормы.ПолеДокумента.ОтображатьСетку     = Ложь;

	ЭлементыФормы.ПолеДокумента.Защита              = Ложь;

	ЭлементыФормы.ПолеДокумента.ТолькоПросмотр      = Истина;

	ЭлементыФормы.ПолеДокумента.ИмяПараметровПечати = ПечатныйДокумент.ИмяПараметровПечати;

	ЭлементыФормы.ПолеДокумента.ЧерноБелыйПросмотр  = Ложь;

	ЭлементыФормы.ПолеДокумента.ЧерноБелаяПечать    = Истина; 

	ЭлементыФормы.ПолеДокумента.ПовторятьПриПечатиСтроки = ПечатныйДокумент.ПовторятьПриПечатиСтроки;

	ЭлементыФормы.КоманднаяПанель.Кнопки.ТолькоПросмотр.Пометка = Истина;

	

	КоличествоКопий = Макс(ЭлементыФормы.ПолеДокумента.КоличествоЭкземпляров, 1);

 	

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