Bericht als Gitternetz anzeigen

04/03/2009 - 17:07 von Thomas Wolf | Report spam
Hallo NG

Ich habe einen Bericht mit 9 Feldern (Spalten) und als Test 'mal 5
Datensàtze. Die Kontrollfelder habe ich auf CanGrow = True gesetzt. Das
funktioniert auch bestens. Jetzt wird ja aber nur das Feld/die Felder
vergrössert, welche auch grösser sein müssen.Wie kriege ich das jetzt hin,
dass ich wie ein Gitternetz zur Ansicht habe. Jetzt müsste ich entweder alle
Felder oder wenigstens eine Linie auf die Höhe des grössten Feldes bekommen.
Und das krieg ich nicht hin. Kann mir jemand weiterhelfen?

Gruss
Thomas
 

Lesen sie die antworten

#1 Josef Poetzl
04/03/2009 - 19:17 | Warnen spam
Hallo!

Thomas Wolf schrieb:
Ich habe einen Bericht mit 9 Feldern (Spalten) und als Test 'mal 5
Datensàtze. Die Kontrollfelder habe ich auf CanGrow = True gesetzt. Das
funktioniert auch bestens. Jetzt wird ja aber nur das Feld/die Felder
vergrössert, welche auch grösser sein müssen.Wie kriege ich das jetzt hin,
dass ich wie ein Gitternetz zur Ansicht habe. Jetzt müsste ich entweder alle
Felder oder wenigstens eine Linie auf die Höhe des grössten Feldes bekommen.
Und das krieg ich nicht hin. Kann mir jemand weiterhelfen?



So etwas musste ich vor kurzem auch basteln, daher erspare ich mir die
Beschreibung und zeige es direkt per Code. ;-)

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)

Dim ctl As Control
Dim lngHeight As Long

'Tag="L": Steuerelemente die vergrößert werden dürfen und bei denen
' an der linken Seite eine Linie gezeichnet werden soll

For Each ctl In Me.Controls
If ctl.Tag = "L" Then
lngHeight = GetMax(ctl.Height, lngHeight)
End If
Next

For Each ctl In Me.Controls
If ctl.Tag = "L" Then
printVLine ctl.Left, lngHeight
End If
Next

End Sub

Private Sub printVLine(X As Long, H As Long)
'Report.Line(Kennzeichen, x1, y1, x2, y2, Farbe)

With Me
.CurrentX = X
.CurrentY = 0
.Line 1, X, 0, X, H, 0
End With

End Sub

Anm.: GetMax ist eine Hilfsfunktion zur Bestimmung des Maximalwertes.


mfg
Josef

EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/

Ähnliche fragen