ник: Lukas
Если изменения размеров нужны только по вертикали, то задействовать свойства "Расширение" для текстового поля и секции.
Если изменения размеров нужны только по горизонтали, то: (для поля "ProductName" в области данных)
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
With Me!ProductName
Me.FontName = .FontName
Me.FontSize = .FontSize
Me.FontBold = .FontBold
Me.FontItalic = .FontItalic
.Width = Me.TextWidth([ProductName]) + 100
End With
End Sub
|