Печатная форма 8,2

Люди добрые подскажите в чем дело не могу настроить печатную форму что бы если не влазиет на страницу переносил на следующую. Вот ниже код
        ТабДокумент = Новый ТабличныйДокумент;
        Макет = ПолучитьМакет("Макет");

        // Зададим параметры макета
        ТабДокумент.ПолеСверху              = 0;
        ТабДокумент.ПолеСлева               = 5;
        ТабДокумент.ПолеСнизу               = 0;
        ТабДокумент.ПолеСправа              = 5;
        ТабДокумент.РазмерКолонтитулаСверху = 0;
        ТабДокумент.РазмерКолонтитулаСнизу  = 0;
        ТабДокумент.ОриентацияСтраницы      = ОриентацияСтраницы.Ландшафт;
        //ТабДокумент.МасштабПечати = 85;
        ТабДокумент.АвтоМасштаб = Истина;
   //     //Заголовок                   ссылка
           ОбластьЗаголовок                                         = Макет.ПолучитьОбласть("Шапка");
          ОбластьЗаголовок.Параметры.НомерСчетаФактуры             = НомерСчетаФактуры;
        ОбластьЗаголовок.Параметры.ДатаСчетаФактуры              = ДатаСчетаФактуры;
        ОбластьЗаголовок.Параметры.НомерИсправления              = "-";
        ОбластьЗаголовок.Параметры.ДатаИсправления               = "-";
        ОбластьЗаголовок.Параметры.ПредставлениеПоставщика       = Организация.НаименованиеПолное;
        ОбластьЗаголовок.Параметры.АдресПоставщика               = Организация.ЮридическийАдрес;
        ОбластьЗаголовок.Параметры.ИННПоставщика                 = Организация.ИНН + "/" + Организация.КПП;
        ОбластьЗаголовок.Параметры.ПредставлениеГрузоотправителя = Организация.НаименованиеПолное + ", " + Организация.ЮридическийАдрес;
        ОбластьЗаголовок.Параметры.ПредставлениеГрузополучателя  = ?(Не ЗначениеЗаполнено(Грузополучатель), Контрагент.НаименованиеПолное +
                                                                     Контрагент.ФактическийАдрес,Грузополучатель.НаименованиеПолное +  Грузополучатель.ФактическийАдрес);
        ОбластьЗаголовок.Параметры.ПредставлениеПокупателя       = Контрагент.НаименованиеПолное;
        ОбластьЗаголовок.Параметры.АдресПокупателя               = Контрагент.ЮридическийАдрес;

    Если ЗначениеЗаполнено(Контрагент.ИНН) И  ЗначениеЗаполнено(Контрагент.КПП) Тогда
         ОбластьЗаголовок.Параметры.ИННПокупателя         =  Контрагент.ИНН + "/" + Контрагент.КПП;
    Иначе
        ОбластьЗаголовок.Параметры.ИННПокупателя       =  "-" + "/" + "-";
   КонецЕсли;
        ОбластьЗаголовок.Параметры.Валюта              = ВалютаДокумента.НаименованиеПолное + ", " + ВалютаДокумента.Код;
        ОбластьЗаголовок.Параметры.НомерДок            = Номер;
        ТабДокумент.Вывести(ОбластьЗаголовок);

    // Создаем массив для проверки вывода
        МассивВыводимыхОбластей = Новый Массив;

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

        ОбластьСтрока      = Макет.ПолучитьОбласть("Строка");
        НомерСтраницы   = 1;
        КоличествоСтрок = Товары.Количество();
        Ном             = 0;
        Для Каждого Стр Из Товары Цикл
            Ном = Ном +1;
               ОбластьСтрока.Параметры.НомерСтроки            = Ном;
            ОбластьСтрока.Параметры.ТоварКод               = Стр.Номенклатура.ОЕ;
            ОбластьСтрока.Параметры.ТоварНаименование      = стр.Номенклатура.Наименование;
            ОбластьСтрока.Параметры.ЕдиницаИзмеренияКод    = Стр.Номенклатура.Единица.Код;
            ОбластьСтрока.Параметры.ЕдиницаИзмерения       = Стр.Номенклатура.Единица;
            ОбластьСтрока.Параметры.Количество             = Стр.Количество;
            ОбластьСтрока.Параметры.Цена                   = Стр.Цена;
            ОбластьСтрока.Параметры.Стоимость              = Стр.Сумма - Стр.СуммаНДС;
            ОбластьСтрока.Параметры.Акциз                  = "Без акциза";
            ОбластьСтрока.Параметры.СтавкаНДС              = Стр.СтавкаНДС;
            ОбластьСтрока.Параметры.СуммаНДС               = Стр.СуммаНДС;
            ОбластьСтрока.Параметры.Всего                  = Стр.Сумма;
            //Пойдем в партии и найдем страну происхождения
            НайтиПартию = ПоискПартии(Дата,Склад,Ссылка,Стр.Номенклатура);
            ОбластьСтрока.Параметры.СтранаПроисхожденияКод = ?(НайтиПартию = Неопределено, "",НайтиПартию.НомерГТД);
            ОбластьСтрока.Параметры.ПредставлениеСтраны    = ?(НайтиПартию = Неопределено, "",НайтиПартию.Страна);
            ОбластьСтрока.Параметры.ПредставлениеГТД       = "";

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

                Если Ном <> 1 И НЕ ТабДокумент.ПроверитьВывод(МассивВыводимыхОбластей) Тогда

                    НомерСтраницы = НомерСтраницы + 1;
                    ТабДокумент.ВывестиВертикальныйРазделительСтраниц();
                    ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
                    //ТабДокумент.АвтоМасштаб = Истина;
                    СклонениеПоПадежамЛиста = получитьЛист(НомерСтраницы);
                    ОбластьПодвал.Параметры.КоличествоЛистов = "Документ составлен на " +  НомерСтраницы + " " + СклонениеПоПадежамЛиста;
                    ТабДокумент.Вывести(ОбластьШапкаТаб);
                КонецЕсли;
            КонецЕсли;
            ТабДокумент.Вывести(ОбластьСтрока);
        КонецЦикла;

    ОбластьИтого = Макет.ПолучитьОбласть("Итого");
    ОбластьИтого.Параметры.ИтогоСтоимость =Товары.Итог("Сумма") - Товары.Итог("СуммаНДС") ;
    ОбластьИтого.Параметры.ИтогоСуммаНДС  =Товары.Итог("СуммаНДС");
    ОбластьИтого.Параметры.ИтогоВсего     =СуммаДокумента;
    ТабДокумент.Вывести(ОбластьИтого);
       ОбластьПодвал                         = Макет.ПолучитьОбласть("Подвал");

    ОбластьПодвал.Параметры.КоличествоЛистов         = "Документ составлен на " +  НомерСтраницы + " " + СклонениеПоПадежамЛиста;
    ОбластьПодвал.Параметры.Основание                = "Договор №" +  ДоговорКонтрагента.Номер + " от " + Формат(ДоговорКонтрагента.Дата,"ДФ=dd.MM.yyyy");
    ОбластьПодвал.Параметры.ДолжностьКладовщика      = Контрагент.СотрудникДолжность;
    ОбластьПодвал.Параметры.ФИОРуководителя          = Менеджер.Наименование + ". Согласно приказа " + Формат(Менеджер.Свойство2,"ДФ=dd.MM.yyyy");

    ОбластьПодвал.Параметры.ДатаОтгрузкиПередачи     = Формат(Дата,"ДЛФ=DD");
    ОбластьПодвал.Параметры.ПредставлениеОрганизации = Организация.НаименованиеПолное + ", ИНН/КПП " + Организация.ИНН + "/" + Организация.КПП;
    ОбластьПодвал.Параметры.ПредставлениеКонтрагента = Контрагент.НаименованиеПолное + ", ИНН/КПП " + Контрагент.ИНН + "/" + Контрагент.КПП;

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