Шрифты в макете

[Вася Новенький]

Добрый день.
помогите плиз начинающему программисту 1С 8,1.
есть общий Макет ТОРГ-12.
нужно печатать в него вместо Кода - Штрих код (в том случае если выберут печать именно со штрих кодом).
но т.к. штрих код имеет 13 символов он естественно туда не влазит.
мне нужно чтобы при выводе этого макета шрифт, в ячейке где проставляется Код, был другой.
но для всех остальных чтобы он остался такой, как в макете. (т.е. в самом  общем макете шрифт менять нельзя)
на сколько понимаю нужно получить саму эту ячейку и уже в ней поменять шрифт. но как это сделать...что то в помощнике этого нет.

[cannabis_86]

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

ОбластьШтрихкода = Макет.ПолучитьОбласть("Строка|Детали"); // будет изменено конкретно пересечение областей
ОбластьШтрихкода.Область().Шрифт =  Новый Шрифт("Verdana", 9,Истина);

[Вася Новенький]

а нет разницы что у меня эта ячейка в области Строка? т.е. я получила уже область Строка. теперь нужно получать область ШтрихКода?код у меня такой будет?:
    ОбластьМакета = Макет.ПолучитьОбласть("Строка");
   Если ПечатьEAN Тогда
                ОбластьШтрихКода = Макет.ПолучитьОбласть("");
      ОбластьМакета.Область("").Шрифт = Новый Шрифт("Verdana", 9,Истина);    
   КонецЕсли;

[cannabis_86]

а нет разницы что у меня эта ячейка в области Строка? т.е. я получила уже область Строка. теперь нужно получать область ШтрихКода?код у меня такой будет?:
    ОбластьМакета = Макет.ПолучитьОбласть("Строка");
   Если ПечатьEAN Тогда
                ОбластьШтрихКода = Макет.ПолучитьОбласть("");
      ОбластьМакета.Область("").Шрифт = Новый Шрифт("Verdana", 9,Истина);    
   КонецЕсли;

Если вы сделаете так, то скорее всего будет установлен шрифт на всю область "строка", хотя надо попробовать. Если не получится, то поробуйте сделать вертикальную область "штрихкод" и делайте ОбластьМакета = Макет.ПолучитьОбласть("Строка|Штрихкод");

[Вася Новенький]

Спасибо, сделал в итоге вот так, может кому нужно будет:

ОбластьМакета = Макет.ПолучитьОбласть("Строка");
Если ПечатьEAN Тогда
      ОбластьМакета.Область("R1C4").Шрифт = Новый Шрифт(ОбластьМакета.Область("R1C4").Шрифт,, 7,Ложь);    
КонецЕсли;