RTF-Text in Bericht - Seitenformatierung

08/11/2007 - 10:30 von Josef Zins | Report spam
Hallo zusammen
ich verwende Lebans-RTF 2 in einem Memo-Feld und Access 2003
In den Formularen funktioniert alles perfekt.

In Berichten habe ich allerdings 2 Probleme:

1. Bei der Ausgabe in einen Bericht funktioniert alles mit der
Format-Routine so lange perfekt, so lange das RTF-Feld nicht mehr als
eine Seite benötigt.
Anzumerken ist dazu noch, dass ich im Detailbereich, NACH DEM RTF-FELD
noch normale Text- und Bezeichnungsfelder benötige. Die Lage ist
natürlich abhàngig von der Höhe des RTF-Feldes, und ruscht bei einem
mehrseitigen RTF-Feld natürlich auf die nàchste Seite.

Formatierungsroutnie zur Anpassungder Höhe RTF-Feld:
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

' Height of the current RTF2 Control
Dim Height As Integer
' Max height to allow for multiple RTF2 controls
Dim MaxHeight As Integer
Dim a

' Init Dimensionen
MaxHeight = 0

If Me.RTF20.Object.RTFheight > 0 Then
If Me.RTF20.RTFheight < 30500 Then
Me.RTF20.Height = Me.RTF20.RTFheight
'Me.Section(acDetail).Height = Me.RTF20.RTFheight + _
Me.RTF20.Top
If MaxHeight > Me.RTF20.Object.RTFheight + Me.RTF20.Top Then
MaxHeight = Me.RTF20.Object.RTFheight + Me.RTF20.Top
End If
End If
End If

' Now set the Detail Section's Height to the Maximum calculated value.
Me.Section(acDetail).Height = Me.RTF20.Top + _
Me.RTF20.Object.RTFheight

'Folgezeile nach RTF-Feld positionieren
Me.Section(acDetail).Height = Me.RTF20.Top +_
Me.RTF20.Object.RTFheight + 67 + Me.tabLBPosArt.Height
Me.Bezeichnungsfeld56.Top = Me.RTF20.Top + _
Me.RTF20.Object.RTFheight + 67

End Sub

Alle Berichtsteile werden ordentlich ausgegeben, an der Stalle, wo das
mehrseitige RTF-Feld kommt, landet die Routine in einer Endlos-Schleife
und làsst sich nur mehr mit Str+Alt+Entf abbrechen.

2. Bei einem größeren RTF-Feld wir abhàngig von der Lage das Beginns auf
der Seite eine neue Seite begonnen, obwohl für den Detailbereich
Zusammenhalten auf Nein gestellt ist. Im RTF-Feld selbst gibt es ja
keine Möglichkeit, Zusammenhalten auf Nein zu stellen !?


Kann mir jemand bei meinem Problemen unter die Arme greien ?

Danke im Voraus
Josef Zins
 

Lesen sie die antworten

#1 Michel Fouquet
10/11/2007 - 09:08 | Warnen spam
Hallo,

Josef Zins schrieb:
ich verwende Lebans-RTF 2 in einem Memo-Feld und Access 2003
In den Formularen funktioniert alles perfekt.

In Berichten habe ich allerdings 2 Probleme:



[snip]

Kann mir jemand bei meinem Problemen unter die Arme greien ?



meine Meinung: sich in derlei Fàllen direkt an die Quelle begeben! Also
in einer der Newsgroups posten, die Stephen auf seiner HP
http://www.lebans.com/ selber angibt.

Im Falle von Berichten dürfte dies naturgemàß
news:microsoft.public.access.reports sein.

mfg,
Michel

Informationen für Newbies (Neulinge) in den Access-Newsgroups
http://www.doerbandt.de/Access/Newbie.htm

FAQ: http://www.donkarl.com/AccessFAQ.htm
KnowHow.mdb: http://www.freeaccess.de/knowhow.asp

Ähnliche fragen