Как уменьшить шрифт в макете программно в зависимости от кол-ва символов. УПП

[kiksi]

Как можно в макете печатной формы при выводе комментария из документа уменьшать шрифт в ячейке в зависимости от кол-ва символов,  то есть если комментарий длинный, то шрифт уменьшить, чтобы поместился в ячейке

[barabambler]

Если Условие1 Тогда
    МойШрифт = новый шрифт(,НужныйРазмер);
Иначе
    МойШрифт = новый шрифт(,НужныйРазмер);
КонецЕсли;

Область.ТекущаяОбласть.Шрифт = МойШрифт;

//В таком ключе

[kiksi]

Вышла из положения пока так:

ДлинаНаименования1    = СтрДлина(ОбластьМакета.Параметры.КомментарийКладовщикам1);
   ДлинаНаименования2    = СтрДлина(ОбластьМакета.Параметры.КомментарийКладовщикам2);
   
Если ДлинаНаименования1 > 50 Тогда
ОбластьМакета.Область("КомментарийКладовщикам1").Шрифт = Новый Шрифт(ОбластьМакета.Область("КомментарийКладовщикам1").Шрифт,, 7,Ложь);
     Иначе ОбластьМакета.Область("КомментарийКладовщикам1").Шрифт = Новый Шрифт(ОбластьМакета.Область("КомментарийКладовщикам1").Шрифт,, 9,Ложь);
  КонецЕсли;
Если ДлинаНаименования2 > 50 Тогда
          ОбластьМакета.Область("КомментарийКладовщикам2").Шрифт = Новый Шрифт(ОбластьМакета.Область("КомментарийКладовщикам2").Шрифт,, 7,Ложь);
     Иначе ОбластьМакета.Область("КомментарийКладовщикам2").Шрифт = Новый Шрифт(ОбластьМакета.Область("КомментарийКладовщикам2").Шрифт,, 9,Ложь);
  КонецЕсли;