Höhe von vergrößerbaren TextFeld in Bericht ermitteln
Andreas Gauer
ich habe folgendes Problem:
in einem Bericht habe ich in dem Gruppenfuß ein vergrößerbares
Textfeld und direkt darunter ein Unterbericht.
Darunter möchte ich jetzt bündigt eine horizontale Linie als Abschluss
über die komplette Berichtsbreite haben.
ich habe das jetzt schon mal versucht mittels (beim Ereignis "Beim
Formatieren"):
Me![MeineLinie].Top = Me![MeinUnterbericht].Top + Me!
[MeinUnterbericht].Height
Das funktioniert soweit ganz gut, solange das Textfeld nur eine Zeile
hoch ist. Sobald das Textfeld mehrere Zeilen hoch ist passt es leider
nicht mehr, da in dem Ereignis "Beim Formatieren" die endgültige Höhe
des Text-feldes noch nicht feststeht.
Wie kann ich das jetzt hinbekommen, das die Linie bündig ist bei
variablen Textfeld und Unterbericht
Für Hilfe im voraus vielen Dank
Viele Grüße
Andreas
Josef Poetzl
Andreas Gauer schrieb:
[...]
> ich habe das jetzt schon mal versucht mittels (beim Ereignis "Beim
> Formatieren"):
> [...]
> ... da in dem Ereignis "Beim Formatieren" die endgültige Höhe
> des Text-feldes noch nicht feststeht.
... die angepasste Höhe müsste als Reaktion auf Print ablesbar sein.
> Wie kann ich das jetzt hinbekommen, das die Linie bündig ist bei
> variablen Textfeld und Unterbericht
Beispiel-mdb:
http://access.joposol.com/download/BerichtPreisAusrichten.zip
mfg
Josef
--
Code-Bibliothek für Access-Entwickler: http://access-codelib.net/
Access-FAQ von Karl Donaubauer: http://www.donkarl.com/
Andreas Gauer
erst einmal vielen Dank für die Schnelle Hilfe.
Leider funktioniert das nicht ganz so (auf jeden Fall bekomme ich das
nicht hin). Ich kann zwar in dem Ereignis "Beim Drucken" die
endgültige Höhe des Textfeldes abfragen, jedoch kann ich die linie
dann nicht mehr ensprechend positionieren. Hier bekomme ich dann immer
die Fehlermeldung bei der funktion : Me![MeineLinie].Top =
HöheDerLinie
"Die von Ihnen eingegebene Einstellung ist für diese Eigenschaft
ungültig."
gibt es eine andere Möglichkeit die Linie in dem Gruppenfuß zu
positionieren ????
Für Hilfe nach wie vor vielen Dank
Gruß
Andreas
Josef Poetzl
Andreas Gauer schrieb:
> Leider funktioniert das nicht ganz so (auf jeden Fall bekomme ich das
> nicht hin). Ich kann zwar in dem Ereignis "Beim Drucken" die
> endgültige Höhe des Textfeldes abfragen, jedoch kann ich die linie
> dann nicht mehr ensprechend positionieren.
Wenn du nur eine Linie unter dem Steuerelement (Unterbericht) haben
willst, dann musst du doch gar nichts programmieren. Die Linie sollte
automatisch verschoben werden, wenn das Textfeld vergrößert wird und
die Linie (knapp) unterhalb dem Steuerelement angeordnet ist.
> Hier bekomme ich dann immer
> die Fehlermeldung bei der funktion : Me![MeineLinie].Top =
> HöheDerLinie
> "Die von Ihnen eingegebene Einstellung ist für diese Eigenschaft
> ungültig."
Als Alternative könntest du per VBA eine Linie zeichnen.
Prinzip:
Private Sub printLine(Y As Long)
'Report.Line(Kennzeichen, x1, y1, x2, y2, Farbe)
With Me
.CurrentX = 0
.CurrentY = Y
.Line 1, 0, Y, 454, Y, 0
End With
End Sub