Office: A2K: Rahmen im Detailbereich

Daedalus · 22. Juli 2003

Hi !

Ist es eigentlich machbar, dass um alle Datensätze im Detailbreich, bei einem Breicht, ein großer Rahmen drum rum ist ?
Vorzugsweiese so einer, dessen stärke ich anpassen könnte?
Hat jemand ne Idee?
Danke schon mal im Vorraus

:)

Axel37 · 23. Juli 2003

eine möglichkeit wäre die detaildatensätze in einem unterbericht zu platzieren und dem ub die eigenschaft rahmen in der gewünschten stärke zu geben. der hauptbericht könnte zb irgendeine überschrift haben oder auch leer sein.
axel

Daedalus · 23. Juli 2003

Hi Axel

Hab gar nicht gewusst, dass es auch Unterberichte gibt. So dürfte es vermutlich gehen. Ich schreib dann zurück obs gegangen ist.

Danke! *top

Axel37 · 23. Juli 2003

dann gibts noch per vba ne lösung

Code:

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

Dim Anz As Integer
Dim t As Integer
Dim MerkStart As Integer
Dim MerkEnde As Integer
Dim Spaltenbreiten As String
Dim Spalten() As Long

' ---- WICHTIG -------------------------------------------------------
' Bitte in dieser Zeile die Spalten definieren. Die einzelnen Werte
' müssen durch Kommas getrennt werden.
' Die Werte müssen in TWIPS angegeben werden (1 cm = 567 Twips)
' WICHTIG: nach dem letzten Maß kein Komma mehr angeben
Spaltenbreiten = "0,342,1422,4884,9874"
' --------------------------------------------------------------------

' Spaltenanzahl ermitteln
Anz = SpaltenAnzahl(Spaltenbreiten)

' Maßeinheit defnieren (Twips)
Me.ScaleMode = 1

' Linienfarbe festlegen
Me.ForeColor = 0

' Spalten in Array speichern
ReDim Spalten(Anz)
MerkStart = 1
MerkEnde = 1
For t = 0 To Anz - 1
MerkEnde = InStr(MerkStart, Spaltenbreiten, ",")
If MerkEnde = 0 Then MerkEnde = Len(Spaltenbreiten) + 1
Spalten(t) = CLng(Mid(Spaltenbreiten, MerkStart, MerkEnde - MerkStart))
MerkStart = MerkEnde + 1
Next t

' Linien einfügen
For t = 0 To Anz - 1
Me.Line (Spalten(t), 0)-(Spalten(t), 20000)
Next t

End Sub

Public Function SpaltenAnzahl(SP As String)

Dim MerkStart As Integer
Dim MerkEnde As Integer
Dim schalter As Boolean

' Spalten in Array speichern
MerkStart = 1
MerkEnde = 1
Do Until schalter = -1
MerkEnde = InStr(MerkStart, SP, ",")
If MerkEnde = 0 Then
MerkEnde = Len(SP) + 1
schalter = -1
End If
MerkStart = MerkEnde + 1
SpaltenAnzahl = SpaltenAnzahl + 1
Loop

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

diese fkt wird häufig verwendet und muss im detailbereich in eingetragen "beim drucken" werden.
mit den twips mus probiert werden

axel

Kurt aus ABG · 23. Juli 2003

Hi Daedalus,

einfacher geht es, wenn du dir aus der Toolbox ein Line vor und nach dem Bereich einsetzt. Eine weitere Linie über dem Detailbereich und eine
Linie unter den Detailbereich platzierst. (z.B. Seitenkopf oder - fuß)

mfg Kurt

Axel37 · 23. Juli 2003

\@kurt
hat aber den nachteil, dass du nur eine statische seitenlinie hast, die sich nicht einer variablen länge anpassen kann. dh umrandete unterberichte oder die vbalösung passen sich an, während die statische seitenlinie dem druckbild angepasst werden muss. das wiederum ist abhängig vom druckertreiber und kann bei unterschiedl druckern dazu führen, dass plötzl die untere trennlinie auf einem sep. blatt erschein, wenn man sich im grenzbereich bewegt. (leider haben alle drucker unterschiedl seitenränder, ausser postscript,pdf..)
aber insofern ist es wirkl die einfachste lösung
axel

Axel37 · 23. Juli 2003

achja, und wenn ein detaildatensatz auf vergrössern steht, weil längere ds angezeigt werden müssen, dann reisst die seitenlinie ab und es entstehen hässliche lücken
axel

Daedalus · 23. Juli 2003

Also das mit dem Unterbericht funzt.
thx

Kurt aus ABG · 24. Juli 2003

Hallo Axel,
natürlich hast du recht, eine starre Linie ist nicht dynamisch.
Für immer gleichbleibende Höhe des Detailbereiches ist es sicher eine
einfache und schnelle Lösung.

Grüsse
Kurt

Office: A2K: Rahmen im Detailbereich

A2K: Rahmen im Detailbereich

A2K: Rahmen im Detailbereich

A2K: Rahmen im Detailbereich

A2K: Rahmen im Detailbereich

A2K: Rahmen im Detailbereich - Similar Threads - A2K Rahmen Detailbereich

Bild neben Text im Rahmen

Intelligente Tabellen – eigene Formatvorlagen mit Rahmen und Farben erweitern?

"Textfeld"-Rahmen läßt sich nicht löschen

Adressbox für Fenstercouvert positionieren

Rahmen in jeder neuen Leerzeile

A2K: DomMax in Abfrage um 1 hochzählen

A2K: berechnetes Feld in Abfrage - negativ verhindern