Доброй ночи
Не получается установить шрифт для кнопки
Делаю так:

Процедура ПриОткрытии() // Предопределенная

    Если ПустоеЗначение(Форма.Параметр)=1 Тогда
        СтатусВозврата(0);
        Возврат;
    Иначе
        Конт = Форма.Параметр;  
    КонецЕсли;
    Сервис = СоздатьОбъект("Сервис");
  
     ШрифтКн = Сервис.СоздатьШрифт("Tahoma", 18, 7, 0, 0, 0, 0);
    РасширениеФормы = СоздатьОбъект("РасширениеФормы");
РасширениеФормы.УстановитьФорму(Форма);
    кнКарта = РасширениеФормы.ПолучитьАтрибут("кнОплБезНал");
    кнКарта.Шрифт = ШрифтКн;
    
    
КонецПроцедуры  



Процедура ПослеЗакрытия()
    Сервис.УдалитьШрифт(ШрифтКн);
КонецПроцедуры


Но ни чего не меняется. Где моя ошибка?

делай в процедуре
ПослеОткрытия()
или
ПослеСоздания() (приСоздании()..?)