ник: Lukas
Если "в лоб" то:
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Me.ScaleMode = 6
Me.FontName = Me.fldTXT.FontName
Me.FontSize = Me.fldTXT.FontSize
Me.FontBold = Me.fldTXT.FontBold
Me.FontItalic = Me.fldTXT.FontItalic
Me.Print Me.TextWidth(Me.fldTXT)' это ответ в мм.
End Sub
Но лучше придумать другое решение.
Может все таки проще разрешить расширение для данного поля?