Не выводит на печать штрихкод!

Здравствуйте, необходимо чтобы на печатной форме отображался штрихкод.  Штрих код должен быть равен номеру документа, это я сделал.
Установил  1CBarCode.ехе
Если ШтрихКОдирование.Рисунки.D4.Объект.ТекстКода = Выборка.Штрихкод;
Выдает ошибку что Поле объекта не обнаружено, хотя в макете в свойствах граф. элемента указано Имя: D4.
Если меняю D4 на D1 пишет что ТекстКода не объектного типа.
Прошу помочь и сказать в чем ошибка. Заранее спасибо.

Процедура Печать(ТабДок, Ссылка) Экспорт
    //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
    Макет = Документы.ЗаявкаПокупателяССайта.ПолучитьМакет("Печать");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ЗаявкаПокупателяССайта.ШтрихКод,
    |    ЗаявкаПокупателяССайта.Товары.(
    |        НомерСтроки,
    |        Номенклатура,
    |        Вес
    |    )
    |ИЗ
    |    Документ.ЗаявкаПокупателяССайта КАК ЗаявкаПокупателяССайта
    |ГДЕ
    |    ЗаявкаПокупателяССайта.Ссылка В (&Ссылка)";
    Запрос.Параметры.Вставить("Ссылка", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();

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

    ВставлятьРазделительСтраниц = Ложь;
    Пока Выборка.Следующий() Цикл
        Если ВставлятьРазделительСтраниц Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;

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

    Если Выборка.Штрихкод <> NULL Тогда
              ШтрихКОдирование = Макет.ПолучитьОбласть("ШтрихКОдирование");
              ШтрихКОдирование.Рисунки.D5.Объект.ТекстКода = Выборка.Штрихкод;
                иначе

              ШтрихКОдирование.Рисунки.D5.Объект.ТекстКода = "00000000";
КонецЕсли;
         ШтрихКОдирование.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(ШтрихКОдирование);

        ТабДок.Вывести(ОбластьТоварыШапка);
        ВыборкаТовары = Выборка.Товары.Выбрать();
        Пока ВыборкаТовары.Следующий() Цикл

            ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
            ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
        КонецЦикла;

        ВставлятьРазделиельСтраниц = Истина;
    КонецЦикла;

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