1c печатает 6 листов вместо одного.Это ошибка моя или что-то с принтером?

Всем добрый день!Отправляю на печать Реализацию товаров и услуг,выдает печать на шесть листов,но сам документ печатает только на одной странице а остальные вылазят чистыми.Подскажите пожалуйста что это может быть?На  трех принтерах одно и то же.

1С:Предприятие 8.2 (8.2.18.61) Торговля для ЧП

Функция ПечатьСервис() Экспорт

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

        глТекущийПользователь     = ПараметрыСеанса.ТекущийПользователь.Ссылка;
        АдресМагазина             = Пользователи.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "АдресМагазина");
        ТелефонМагазина           = Пользователи.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ТелефонМагазина");
        ВремяРаботы              = Пользователи.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ВремяРаботы");
        Телефон                   = ПолучитьДанныеКонтактнойИнформации(Контрагент, Перечисления.ТипыКонтактнойИнформации.Телефон, Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);

        для ИН                = 1 по 2 Цикл

    // Заголовок
            Область = Макет.ПолучитьОбласть("Заголовок");

            Область.Параметры.Номер = Номер;
            Область.Параметры.Дата = Дата;
            ТабДок.Вывести(Область);
            // Шапка
            Шапка = Макет.ПолучитьОбласть("Шапка");
            //Шапка.Параметры.Заполнить(ЭтотОбъект);


    ////Заполняем контактныеДанные магазина
            Шапка.Параметры.АдресМагазина = АдресМагазина;
            Шапка.Параметры.ТелефонМагазина = ТелефонМагазина;
            Шапка.Параметры.ВремяРаботы = ВремяРаботы;
            //Шапка.Параметры.Контакты    = ?(Телефон.Количество() = 0, "", Телефон[0].Представление);

            ТабДок.Вывести(Шапка);
    // Сервис
            Область = Макет.ПолучитьОбласть("Сервис");
            ОбластьСервис = Макет.ПолучитьОбласть("Сервис");
            ОбластьСервис.Параметры.Комментарий = Комментарий;
            ОбластьСервис.Параметры.Контакты = Контакты;
            ОбластьСервис.Параметры.Контрагент = Контрагент;

            ОбластьСервис.Параметры.Контакты    = ?(Телефон.Количество() = 0, "", Телефон[0].Представление);
            Для Каждого ТекСтрокаСервис Из Сервис Цикл
                ОбластьСервис.Параметры.Заполнить(ТекСтрокаСервис);
                ТабДок.Вывести(ОбластьСервис);
            КонецЦикла;
    // Подвал
            Подвал = Макет.ПолучитьОбласть("Подвал");
            Подвал.Параметры.Заполнить(ЭтотОбъект);
            ТабДок.Вывести(Подвал);

        КонецЦикла;

        ТабДок.ОтображатьСетку = Ложь;
        ТабДок.Защита = Ложь;
        ТабДок.ТолькоПросмотр = Ложь;
        ТабДок.ОтображатьЗаголовки = Ложь;
        ТабДок.Показать();
        //}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
    КонецФункции


    // Процедура осуществляет печать документа. Можно направить печать на
    // экран или принтер, а также распечатать необходмое количество копий.
    //
    //  Название макета печати передается в качестве параметра,
    // по переданному названию находим имя макета в соответствии.
    //
    // Параметры:
    //  НазваниеМакета - строка, название макета.
    //
    Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт

        Если ЭтоНовый() Тогда
            Предупреждение("Документ можно распечатать только после его записи");
            Возврат;
        ИначеЕсли Не Пользователи.РазрешитьПечатьНепроведенныхДокументов(Проведен) Тогда
            Предупреждение("Недостаточно полномочий для печати непроведенного документа!");
            Возврат;
        КонецЕсли;

        Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
            Возврат;
        КонецЕсли;

        // Получить экземпляр документа на печать
        Если ИмяМакета = "Накладная" или ИмяМакета="ТоварнаяНакладная" или ИмяМакета = "НакладнаяУслуги" тогда
            // Управленческая печатная форма документа
            ТабДокумент = ПечатьРасходнаяНакладная(ИмяМакета);
        ИначеЕсли ИмяМакета = "Акт" Тогда
            ТабДокумент = ПечатьАктаОбОказанииУслуг();
        ИначеЕсли ИмяМакета = "Доход" Тогда
            ТабДокумент = ПечатьДоход();
        ИначеЕсли ИмяМакета = "Печать" Тогда
            ТабДок = ПечатьСервис ();
        КонецЕсли;


        РаботаСДиалогами.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, РаботаСДиалогами.СформироватьЗаголовокДокумента(ЭтотОбъект));

    КонецПроцедуры // Печать