Вывод шапки на каждой странице

Нужно печатать шапку на каждой странице, а печатается только на первых двух, не могу понять в чем дело, сам еще пока зеленый в конфигурировании.

Вот код для печати макета:

Функция ПечатьТ5а(ИмяМакета)

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ПолеСлева = 0;
ТабДокумент.ПолеСправа = 0;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_КадровоеПеремещениеОрганизации_Т5а";
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

// получаем данные для печати
ВыборкаДляШапки = СформироватьЗапросДляПечати("ПоРеквизитамДокумента").Выбрать();
ВыборкаРаботники = СформироватьЗапросДляПечати("ПоТабличнойЧастиДокумента").Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

// подсчитываем количество страниц документа - для корректного разбиения на страницы
ВсегоСтрокДокумента = ВыборкаРаботники.Количество();

// запоминаем области макета
Макет = ПолучитьМакет(ИмяМакета);
ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка"); // Шапка документа.
ПовторятьПриПечатиСтроки = Макет.ПолучитьОбласть("ПовторятьПриПечати"); // повторяющаяся шапка страницы
ОбластьМакетаПодвал = Макет.ПолучитьОбласть("Подвал");// Подвал документа
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаРаботник"); // строка работника

// массив с двумя строками - для разбиения на страницы
ВыводимыеОбласти = Новый Массив();
ВыводимыеОбласти.Добавить(ОбластьМакета);

// выводим данные о руководителях организации
Если ВыборкаДляШапки.Следующий() Тогда
ОбластьМакетаШапка.Параметры.Заполнить(ВыборкаДляШапки); // Шапка документа.
ОбластьМакетаШапка.Параметры.НазваниеОрганизации = СокрЛП(ОбластьМакетаШапка.Параметры.НазваниеОрганизации);
ОбластьМакетаПодвал.Параметры.Заполнить(ВыборкаДляШапки);// Для подвала.
КонецЕсли;

// Начинаем формировать выходной документ
ТабДокумент.Вывести(ОбластьМакетаШапка); // Шапка документа.

ВыведеноСтрок = 0;
// выводим строки по работникам
Пока ВыборкаРаботники.Следующий() Цикл

ВложеннаяВыборка = ВыборкаРаботники.Выбрать();
ВложеннаяВыборка.Следующий();

// Данные по работнику.
ОбластьМакета.Параметры.Заполнить(ВложеннаяВыборка);

РезультатСклонения = "";
Если УниверсальныеМеханизмы.Просклонять(глЗначениеПеременной("глКомпонентаСклоненияФИО"), ВложеннаяВыборка.Работник, 4,ВложеннаяВыборка.ФизЛицоПол, РезультатСклонения) Тогда
ОбластьМакета.Параметры.Работник = РезультатСклонения
КонецЕсли;

Если ЗначениеЗаполнено(ВложеннаяВыборка.ОкладТарифнаяСтавка) Тогда
Если ЗначениеЗаполнено(ВложеннаяВыборка.ВалютаТарифнойСтавки) Тогда
СтрокаВалюты = "" + ВложеннаяВыборка.ВалютаТарифнойСтавки;
ОбластьМакета.Параметры.ОкладТарифнаяСтавка = "" + Формат(ВложеннаяВыборка.ОкладТарифнаяСтавка,"ЧЦ=15; ЧДЦ=2; ЧН=' '") + " (" + ?(ВложеннаяВыборка.ТребуетВводаТарифногоРазряда, ВложеннаяВыборка.ТарифныйРазряд + ", ", "") + СтрокаВалюты + ")" ;
Иначе
СтрокаВалюты = Символы.ПС + "(" + ВложеннаяВыборка.ВалютаТарифнойСтавки +")";
ОбластьМакета.Параметры.ОкладТарифнаяСтавка = "" + Формат(ВложеннаяВыборка.ОкладТарифнаяСтавка,"ЧЦ=15; ЧДЦ=2; ЧН=' '") + ?(ВложеннаяВыборка.ТребуетВводаТарифногоРазряда, " (" + ВложеннаяВыборка.ТарифныйРазряд + ")" , "");
КонецЕсли;
КонецЕсли;

Если ЗначениеЗаполнено(ВложеннаяВыборка.РазмерНадбавки) Тогда

ТекстЯчейки = ОбластьМакета.Параметры.ОкладТарифнаяСтавка;
ТекстЯчейки = "" + ТекстЯчейки + "," + Символы.ПС + ВложеннаяВыборка.РазмерНадбавки;

Если ВложеннаяВыборка.СпособРасчета = Перечисления.СпособыРасчетаОплатыТруда.Процентом Тогда
ТекстЯчейки = ТекстЯчейки + "(%)"
Иначе
ТекстЯчейки = ТекстЯчейки + ?(ЗначениеЗаполнено(ВложеннаяВыборка.ВалютаНадбавки)," (" + ВложеннаяВыборка.ВалютаНадбавки+")","");
КонецЕсли;

ОбластьМакета.Параметры.ОкладТарифнаяСтавка = ТекстЯчейки;
КонецЕсли;

//уберем из табельного номера префикс
ОбластьМакета.Параметры.ТабельныйНомер = ВложеннаяВыборка.ТабельныйНомер;

// разбиение на страницы
ВыведеноСтрок = ВыведеноСтрок + 1;

// Проверим, уместится ли строка на странице или надо открывать новую страницу
ВывестиПодвалЛиста = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти);
Если Не ВывестиПодвалЛиста и ВыведеноСтрок = ВсегоСтрокДокумента Тогда
ВыводимыеОбласти.Добавить(ОбластьМакетаПодвал);
ВывестиПодвалЛиста = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти);
КонецЕсли;
Если ВывестиПодвалЛиста Тогда
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабДокумент.Вывести(ПовторятьПриПечатиСтроки);
КонецЕсли;

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

Если ИмяМакета = "Т5а_от_5_1_2004" И ЗначениеЗаполнено(ВложеннаяВыборка.ОснованиеПеремещения) Тогда
ВысотаДока = ТабДокумент.ВысотаТаблицы;
ОбластьДокумента = ТабДокумент.Область(ВысотаДока,14,ВысотаДока,17);
ОбластьДокумента.Объединить();
ОбластьДокумента.Текст = ВложеннаяВыборка.ОснованиеПеремещения;
КонецЕсли;

КонецЦикла;

// если не было ни одного работника - выводим пустой бланк
ВыводимыеОбласти = Новый Массив();
ВыводимыеОбласти.Добавить(ОбластьМакета);
ВыводимыеОбласти.Добавить(ОбластьМакетаПодвал);
Для Сч = 1 По ОбластьМакета.Параметры.Количество() Цикл
ОбластьМакета.Параметры.Установить(Сч - 1,"");
КонецЦикла;
ОбластьМакета.Параметры.Работник = " " + Символы.ПС + " ";
Пока ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти, Ложь) Цикл
ТабДокумент.Вывести(ОбластьМакета);
КонецЦикла;

// выводим предварительно подготовленный Подвал документа.
ТабДокумент.Вывести(ОбластьМакетаПодвал);
Возврат ТабДокумент;

КонецФункции // ПечатьТ5а()