Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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

Но лучше придумать другое решение.

Может все таки проще разрешить расширение для данного поля?