Вывод 2-х расчтетных листков на страницу

1С 8.2.14.540
ЗУП 2.5.40.3
Задача: организовать вывод СТРОГО 2-х расчетных листков на страницу
Если не вмещаются - изменить масштаб

Код: (в модуле объекта отчета Расчетные листки)
Процедура РазбитьТабличныйДокументПоСтраницам(ТабличныйДокумент)

Состояние(НСТР("ru='Разделение расчетных листков по страницам ... (Если вы хотите прервать вывод отчета, нажмите Ctrl+Break)'"));

ТабличныйДокументДляПроверки = Новый ТабличныйДокумент;
ТабличныйДокументДляПроверки.Очистить();
ТабличныйДокументДляПроверки.АвтоМасштаб = Истина;

ОбластьПервойЯчейки = ТабличныйДокумент.НайтиТекст("Расчетный листок");
ОбластьПоследнейЯчейки = ТабличныйДокумент.НайтиТекст("Долг за ");

Если ОбластьПервойЯчейки = Неопределено тогда
Возврат;
КонецЕсли;

Пока ОбластьПервойЯчейки <> Неопределено Цикл
Для РЛ = 1 по 2 Цикл
НомерСтрокиНачалаРЛ = ОбластьПервойЯчейки.Верх - 1;
НомерСтрокиКонцаРЛ = ОбластьПоследнейЯчейки.Верх + 1;

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

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

ОбластьСлед = ТабличныйДокумент.Область(НомерСтрокиКонцаРЛ, , НомерСтрокиКонцаРЛ, );
ОбластьПервойЯчейки = ТабличныйДокумент.НайтиТекст("Расчетный листок", ОбластьСлед);
ОбластьПоследнейЯчейки = ТабличныйДокумент.НайтиТекст("Долг за ", ОбластьСлед);

КонецЦикла;
ОбработкаПрерыванияПользователя();
КонецЦикла;

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

Не работает ни вывод горизонтального разделителя страниц, ни начало страницы, выводит все подряд
В чем ошибка?