Richtext in Formularen und Berichten - Teil 2

RTF Height

Allerdings kann man mit der Eigenschaft RTF Height des RTF2-Objekts die Höhe des Steuerelements mit Inhalt ermitteln. Das nutzt eine Prozedur aus, die durch das Ereignis Beim Formatieren des Detailbereichs ausgelöst wird: Sie passt zunächst die Höhe des RTF2-Steuerelements an und stellt dann die entsprechende Eigenschaft des Detailbereichs selbst ein (Listing 2). Das Ergebnis sieht schon viel besser aus (Bild 4).

Bild 4: Das RTF-Steuerelement im Bericht mit angepasster Höhe.
Bild 4: Das RTF-Steuerelement im Bericht mit angepasster Höhe.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim intHeightRTF As Integer
Dim intMaxHeightRTF As Integer
intMaxHeightRTF = 0
With Me!ctlRTF2
intHeightRTF = Me!ctlRTF2.Object.RTFheight
If intHeightRTF > 0 Then
If intHeightRTF < 32000 Then
.Height = intHeightRTF
Me.Section(acDetail).Height = .Height + .Top
If intMaxHeightRTF > .Height + .Top Then
intMaxHeightRTF = .Height + .Top
End If
End If
End If
End With
Me.Section(acDetail).Height = intMaxHeightRTF
End Sub