Не выводит на печатную форму значения параметров из запроса

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

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьТабличнаяЧасть1Шапка = Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
	ОбластьТабличнаяЧасть1 = Макет.ПолучитьОбласть("ТабличнаяЧасть1");
	ОбластьТабличнаяЧасть2Шапка = Макет.ПолучитьОбласть("ТабличнаяЧасть2Шапка");
	ОбластьТабличнаяЧасть2 = Макет.ПолучитьОбласть("ТабличнаяЧасть2");
	ОбластьТабличнаяЧасть3Шапка = Макет.ПолучитьОбласть("ТабличнаяЧасть3Шапка");
	ОбластьТабличнаяЧасть3 = Макет.ПолучитьОбласть("ТабличнаяЧасть3");

	ТабДок.Очистить();

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

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

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

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

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

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

		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры