How to set "Can Grow"/"Can Shrink"/"Size to Fit" o

[as0125]

Hello all,

I'm currently using Leban's RTF2 ActiveX control on my forms, which works great (it allows text formatting). Now I need to "tweak" my reports to accommodate the formatted field. My old reports are designed so that the field in question has:
Can Grow = Yes
Can Shrink = Yes
How can I apply the same to the RTF control? I've tried doing it via VBA:
Me.RTFname.SizeToFit
But this doesn't work for me either.

Anyone with suggestions please?

 

[hymn]

Have you tried
Me.RTFname.Cangrow = true

Hope this helps
Hymn

 

[as0125]

Hi Hymn,

Thanks for the suggestion. Yes, I've tried that and receive this error message:

"Object doesn't support this property or method"

Anything else I can try? I'd really love to get this feature to work.

 

[hymn]

this the code he uses

Private Sub Detail1_Format(Cancel As Integer, FormatCount As Integer)
Dim Height As Integer

    Height = Me.RTFcontrol.Object.RTFheight
      If Height > 0 Then
        If Height < 32000 Then
            Me.RTFcontrol.Height = Height
        End If
    End If
    Me.Section(acDetail).Height = Me.RTFcontrol.Height + Me.RTFcontrol.Top

    If Me.RTFcontrol.Object.RTFheight > 0 Then
        If Me.RTFcontrol.Object.RTFheight < 32000 Then
            Me.RTFcontrol.Height = Me.RTFcontrol.Object.RTFheight
        End If
    End If
End Sub

Hope this helps
Hymn

 

[as0125]

Thanks a lot! It works great now!

 

[hymn]

Its a pleasure

Hope this helps
Hymn