ник: Pasat
Спасибо за разъяснения 
только вот подумал что так будет удобнее
'перед входом в 1-ый цикл
DoCmd.RunCommand acCmdSelectAll
...
If TypeOf ctrl Is Label Then
ctrl.FontName = "Times New Roman"
ctrl.FontSize = 10
DoCmd.RunCommand acCmdSizeToFit
...
|
1. не надо подбирать высоту при изменении шрифта
2. для каждой надписи получаем нужную длинну