Печать 4 накладных на одном листе А4 (1с8.3 УПП ОФ)

У меня есть несколько РТУ, я делаю из них накладные с товарами для отправки в посылку.

ФормСтрока = "Л = uk_UA; ДП = Истина";
    ПарПредмета="гривня, гривні, гривень, м, копійка, копійки, копійок, ж, 2";
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    Макет = ПолучитьМакет("Накладная");
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьПокупатель = Макет.ПолучитьОбласть("Покупатель");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
    ОбластьИтого = Макет.ПолучитьОбласть("Итого");
    ОбластьСуммаПрописью = Макет.ПолучитьОбласть("СуммаПрописью");
    ОбластьЛиния = Макет.ПолучитьОбласть("Линия");

    ТабДокумент.РазмерСтраницы = "A4";
    ТабДокумент.АвтоМасштаб = Истина;

    Для каждого СтрокаРТУ Из РТУ Цикл

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

        ЗапросУслуг = Новый Запрос;
        ЗапросУслуг.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугУслуги.Количество,
        |    РеализацияТоваровУслугУслуги.Номенклатура Как Товар,
        |    РеализацияТоваровУслугУслуги.Сумма,
        |    РеализацияТоваровУслугУслуги.Цена,
        |    РеализацияТоваровУслугУслуги.Номенклатура.Артикул Как Артикул
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
        |ГДЕ
        |    РеализацияТоваровУслугУслуги.Ссылка = &РТУ";

        ЗапросКонтрагент = Новый Запрос;
        ЗапросКонтрагент.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.Ссылка.Контрагент Как ПредставлениеПокупателя,
        |    РеализацияТоваровУслугТовары.Ссылка.СуммаДокумента Как Всего
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |ГДЕ
        |    РеализацияТоваровУслугТовары.Ссылка = &РТУ";

        ЗапросКонтрагент.УстановитьПараметр("РТУ", СтрокаРТУ.Значение);
        ЗапросТоваров.УстановитьПараметр("РТУ", СтрокаРТУ.Значение);
        ЗапросУслуг.УстановитьПараметр("РТУ", СтрокаРТУ.Значение);

        Строка = ЗапросТоваров.Выполнить().Выбрать();
        Услуга = ЗапросУслуг.Выполнить().Выбрать();
        СтрокаКонтрагент = ЗапросКонтрагент.Выполнить().Выбрать();


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

        Пока СтрокаКонтрагент.Следующий() Цикл
            ОбластьПокупатель.Параметры.Заполнить(СтрокаКонтрагент);
            ОбластьИтого.Параметры.Заполнить(СтрокаКонтрагент);
            ОбластьСуммаПрописью.Параметры.ИтоговаяСтрока = "Всього найменувань  " + Строка.Количество() + ", " + "на суму  "+ Формат(СтрокаКонтрагент.Всего, "ЧДЦ=2") + " грн.";
            ОбластьСуммаПрописью.Параметры.СуммаПрописью = ЧислоПрописью(СтрокаКонтрагент.Всего, ФормСтрока, ПарПредмета);
        КонецЦикла;
        ТабДокумент.Вывести(ОбластьПокупатель);
        ТабДокумент.Вывести(ОбластьШапкаТаблицы);
        НумерацияСтрок = 0;
        Пока Строка.Следующий() Цикл
            ОбластьСтрока.Параметры.НомерСтроки =НумерацияСтрок+1;
            НумерацияСтрок = НумерацияСтрок+1;
            ОбластьСтрока.Параметры.Артикул =Строка.Артикул;
            ОбластьСтрока.Параметры.Товар =  Строка.Товар;
            ОбластьСтрока.Параметры.Количество =Строка.Количество;
            ОбластьСтрока.Параметры.Од = Строка.Од;
            ОбластьСтрока.Параметры.Цена =Строка.Цена;
            ОбластьСтрока.Параметры.Сумма = Строка.Сумма;
            ТабДокумент.Вывести(ОбластьСтрока);
        КонецЦикла;
        Пока Услуга.Следующий() Цикл
            ОбластьСтрока.Параметры.НомерСтроки =НумерацияСтрок+1;
            НумерацияСтрок = НумерацияСтрок+1;
            ОбластьСтрока.Параметры.Артикул =Услуга.Артикул;
            ОбластьСтрока.Параметры.Товар =  Услуга.Товар;
            ОбластьСтрока.Параметры.Количество =Услуга.Количество;
            ОбластьСтрока.Параметры.Цена =Услуга.Цена;
            ОбластьСтрока.Параметры.Сумма = Услуга.Сумма;
            ТабДокумент.Вывести(ОбластьСтрока);
        КонецЦикла;
        ТабДокумент.Вывести(ОбластьИтого);
        ТабДокумент.Вывести(ОбластьСуммаПрописью);
        ТабДокумент.Вывести(ОбластьЛиния);
        ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЦикла;
        ТабДокумент.Показать();

Как сделать так чтобы печатало 4 накладных на 1 А4? нужно использовать  ТабДокумент.ЭкземпляровНаСтранице = 4;
???