1с

Процедура Печать(ТабДок, Ссылка) Экспорт
	//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
	Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ОказаниеУслуги.Дата,
	|	ОказаниеУслуги.Клиент,
	|	ОказаниеУслуги.Мастер,
	|	ОказаниеУслуги.Номер,
	|	ОказаниеУслуги.Склад,
	|	ОказаниеУслуги.ПереченьНоменклатура.(
	|		НомерСтроки,
	|		Номенклатура,
	|		Количество,
	|		Цена,
	|		Сумма
	|	)
	|ИЗ
	|	Документ.ОказаниеУслуги КАК ОказаниеУслуги
	|ГДЕ
	|	ОказаниеУслуги.Ссылка В (&Ссылка)";
	Запрос.Параметры.Вставить("Ссылка", Ссылка);
	Выборка = Запрос.Выполнить().Выбрать();

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьПереченьНоменклатураШапка = Макет.ПолучитьОбласть("ПереченьНоменклатураШапка");
	ОбластьПереченьНоменклатура = Макет.ПолучитьОбласть("ПереченьНоменклатура");
	ТабДок.Очистить();

	ВставлятьРазделительСтраниц = Ложь;
	Пока Выборка.Следующий() Цикл
		Если ВставлятьРазделительСтраниц Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;

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

		Шапка.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Шапка, Выборка.Уровень());

		ТабДок.Вывести(ОбластьПереченьНоменклатураШапка);
		ВыборкаПереченьНоменклатура = Выборка.ПереченьНоменклатура.Выбрать();
		Пока ВыборкаПереченьНоменклатура.Следующий() Цикл
			ОбластьПереченьНоменклатура.Параметры.Заполнить(ВыборкаПереченьНоменклатура);
			ТабДок.Вывести(ОбластьПереченьНоменклатура, ВыборкаПереченьНоменклатура.Уровень());
		КонецЦикла;

                Область = Макет.ПолучитьОбласть("Всего");
                Область.Параметры.ВсегоПоДокументу = ПереченьНоменклатуры.Итог("Сумма");
                ТабДок.Вывести(Область);
 		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры