ник: Анатолий (Киев)
У отчета есть метод TextWidth, который возвращает длину текста в твипах.
Me.FontName = Me![Поле].FontName 'также FontBold и FontItalic
Me.FontSize = 10
If Me.TextWidth(Me![Поле].Value) <= Me![Поле].Width - 10 then '-10 - для надежности
Me![Поле].FontSize = Me.FontSize
End If
|
Это надо делать в цикле, уменьшая размер шрифта, пока не влезет.
В реальности надо также учитывать значения левого/правого отступа в поле и т.п.
В А97 этого метода нет, а в А2000 без обновлений - глючит.
Иначе это можно сделать с помощью API функций, но уж больно громоздко.