S
SF
Hi,
I used Lebans RTF2 control in my report. However, my report contain two RTF2
control instead of one. The code below is alomost perfect except that if the
height of second RTF2 control is heigher than control 1, It just cut of the
rest of the text. I am having a hard time, as a newbie, to modify the code
to address the case state above. Could someone advice?
Private Sub Detail_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
Me.RTFcontrol1.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
Me.RTFcontrol1.Height = Me.RTFcontrol.Object.RTFheight
End If
End If
End Sub
SF
I used Lebans RTF2 control in my report. However, my report contain two RTF2
control instead of one. The code below is alomost perfect except that if the
height of second RTF2 control is heigher than control 1, It just cut of the
rest of the text. I am having a hard time, as a newbie, to modify the code
to address the case state above. Could someone advice?
Private Sub Detail_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
Me.RTFcontrol1.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
Me.RTFcontrol1.Height = Me.RTFcontrol.Object.RTFheight
End If
End If
End Sub
SF