Штрихкод документа на печать

[SkyNetYar]

Добрый день!
Пытаюсь вывести штрихкод документа во внешнюю печатную форму,что не получается,подскажите.
Выдрал картинку из стандартной формы,вставил ее на свой макет

Код Выделить Развернуть

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

Это код оригинала,там выводит нормально

Код Выделить Развернуть

ОбластьЗаголовок.Параметры.ТекстЗаголовка = Заголовок; 
ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабличныйДокумент, Макет, ОбластьЗаголовок, ВыборкаПоДокументам.Ссылка);
ТабличныйДокумент.Вывести(ОбластьЗаголовок);

Сама картинка штрихкода на печатной форме находится в секции "ОбластьШтрихкода"

[Дмитрий@]

Текст процедуры ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабличныйДокумент, Макет, ОбластьЗаголовок, ВыборкаПоДокументам.Ссылка);
скиньте

[SkyNetYar]

ОбщийМодуль.ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент

Код Выделить Развернуть

Процедура ВывестиШтрихкодВТабличныйДокумент(ТабличныйДокумент, Макет, Знач ОбластьМакета, Ссылка) Экспорт

УстановитьПривилегированныйРежим(Истина);

ВыводитьШтрихкодВОтдельнуюОбласть = Ложь;
Если Не ЕстьКартинкаШтрихкодаВОбластиМакета(ОбластьМакета) Тогда
// Картинки штрихкода в этой области макета нет.

Если Макет.Области.Найти("ОбластьШтрихкода") <> Неопределено Тогда

// Проверить картинку штрихкода в области "Штрихкод"
ОбластьМакетаШтрихкод = Макет.ПолучитьОбласть("ОбластьШтрихкода");
Если ЕстьКартинкаШтрихкодаВОбластиМакета(ОбластьМакетаШтрихкод) Тогда
ОбластьМакета = ОбластьМакетаШтрихкод;
ВыводитьШтрихкодВОтдельнуюОбласть = Истина;
Иначе
Возврат;
КонецЕсли;
Иначе
Возврат;
КонецЕсли;

КонецЕсли;

Если Не ПолучитьФункциональнуюОпцию("ИспользоватьШтрихкодированиеПечатныхФормОбъектов") Тогда
ОбластьМакета.Рисунки.Удалить(ОбластьМакета.Рисунки.КартинкаШтрихкода);
Возврат;
КонецЕсли;

Эталон = Обработки.ПечатьЭтикетокИЦенников.ПолучитьМакет("Эталон");
КоличествоМиллиметровВПикселе = Эталон.Рисунки.Квадрат100Пикселей.Высота / 100;

ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина",          Окр(ОбластьМакета.Рисунки.КартинкаШтрихкода.Ширина / КоличествоМиллиметровВПикселе));
ПараметрыШтрихкода.Вставить("Высота",          Окр(ОбластьМакета.Рисунки.КартинкаШтрихкода.Высота / КоличествоМиллиметровВПикселе));
ПараметрыШтрихкода.Вставить("Штрихкод",        СокрЛП(ЧисловойКодПоСсылке(Ссылка)));
ПараметрыШтрихкода.Вставить("ТипКода",         4); // Code128
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
ПараметрыШтрихкода.Вставить("РазмерШрифта",    6);

ОбластьМакета.Рисунки.КартинкаШтрихкода.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);

Если ВыводитьШтрихкодВОтдельнуюОбласть Тогда
ТабличныйДокумент.Вывести(ОбластьМакета);
КонецЕсли;

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


Может надо как то через ПолучитьФункциональнуюОпцию("ИспользоватьШтрихкодированиеПечатныхФормОбъектов") надо?
На подобии этого

Код Выделить Развернуть

Если ПолучитьФункциональнуюОпцию("ИспользоватьШтрихкодированиеПечатныхФормОбъектов") Тогда
            ОбластьЗаголовокШК = Макет.ПолучитьОбласть("ОбластьШтрихкода");
            ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабличныйДокумент, Макет, ОбластьЗаголовокШК, ВыборкаПоДокументам.Ссылка);
        Иначе
            ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
        КонецЕсли;

В общем запутался я что то..

[Дмитрий@]

Первое что бросается в глаза, это то что вы вызове процедуры задаете одну область, а ищете картинку в другой.

Код Выделить Развернуть


Если Макет.Области.Найти("ОбластьШтрихкода") <> Неопределено Тогда
           
            // Проверить картинку штрихкода в области "Штрихкод"
            ОбластьМакетаШтрихкод = Макет.ПолучитьОбласть("ОбластьШтрихкода");
            Если ЕстьКартинкаШтрихкодаВОбластиМакета(ОбластьМакетаШтрихкод) Тогда
                ОбластьМакета = ОбластьМакетаШтрихкод;
                ВыводитьШтрихкодВОтдельнуюОбласть = Истина;
            Иначе
                Возврат;
            КонецЕсли;
        Иначе
            Возврат;
        КонецЕсли;
       
    КонецЕсли;