Неправильный масштаб этикетки

Добрый день. Такая проблема.  При печати этикетки неправильно выставляется масштаб, печатает на пол этикетки.  Если  зайду в настройки печати и, ничего не меняя нажму ок, то печатается правильно. Помогите побороть проблему.

<Code>

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

        Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл

            Если ПечататьЦену И СтрокаИзСписка.Цена = 0
                И Не ПечататьБезЦены Тогда
                Продолжить;
            КонецЕсли;


            ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(СтрокаИзСписка.ТипШтрихкода);
            Если ТипКода = -1 Тогда
                ОбщегоНазначения.СообщитьОбОшибке("Для штрихкода формата """ + СтрокаИзСписка.ТипШтрихкода
                + """ не существует соответствующего типа в ЭУ ""1С:Печать штрихкодов"".
                | Позиция будет пропущена");
                Продолжить;
            КонецЕсли;





            Если РаботаСТорговымОборудованием.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод, СтрокаИзСписка.ТипШтрихкода) Тогда

                ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;
                ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;
            КонецЕсли;


                Параметры.Номенклатура = СокрЛП(СтрокаИзСписка.Номенклатура);


                Если ПечататьЦену И СтрокаИзСписка.Цена <> 0 Тогда
                    //Параметры.Цена = Формат(СтрокаИзСписка.Цена,"ЧЦ=15;ЧДЦ=2;ЧРД='=';ЧГ=10");
                    //Цена = Формат(СтрокаИзСписка.Цена, "ЧЦ=15;ЧДЦ=2;ЧРД='=';ЧГ=10");       //ЧДЦ=2; ЧРД=-; ЧГ=0
                    Параметры.Цена =СтрокаИзСписка.Цена; // Лев(Цена,СтрДлина(Цена)-2);
                КонецЕсли;


                 Артикул=СтрокаИзСписка.Номенклатура.Артикул;

                Параметры.Код = "код " + Прав(СтрокаИзСписка.Номенклатура.Код, 5);
                Параметры.Артикул = "арт: " + СокрЛП(Артикул);


                Таб.Вывести(ЭтикеткаОбласть);
                Таб.ВывестиГоризонтальныйРазделительСтраниц();

                ВывелиХотяБыОдинШтрихКод = Истина;



        КонецЦикла;


        Если ВывелиХотяБыОдинШтрихКод Тогда
            Таб.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Этикет";
            Таб.ОриентацияСтраницы=ОриентацияСтраницы.Портрет;
            Таб.АвтоМасштаб            = Истина;
            таб.ПолеСлева=0;
            Таб.ПолеСверху            = 0;
            Таб.ПолеСнизу            = 0;
            Таб.ПолеСправа            = 0;
            Таб.Показать("Ценник");
            Таб.АвтоМасштаб            = Истина;
        конецесли;
</Code>