Office: (Office 2010) Dynamische Linien im Bericht

Guten Tag zusammen

Für einen Bericht benötige ich dynamische Linien, spätestens beim Ausdruck.

Ich habe einen Hauptbericht und darin 2 Unterberichte. Formatiert sollen jeweils die Unterberichte werden.

Ich habe einen der Unterberichte geöffnet und dann das versucht, was hier in diesem Thread vorgeschlagen wird:
http://www.ms-office-forum.net/forum...ad.php?t=41937

Leider hatte ich dabei keinen Erfolg. Der Bericht geht zwar auf, aber die Linie ist nicht zu sehen.

Mein Code:

Option Compare Database


Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
Me.ScaleMode = 7
Me.DrawWidth = 8 ' Breite der Linie (in Pixeln). Hinweis: Einige Drucker akzeptieren keine ungeraden Zahlen.
Me.Line ((16.998 * 567), TopSteuerelementLng)-((16.998 * 567), TopSteuerelementLng + HoeheSteuerelementLng), mcLineColorLng
End Sub

Link von MS zu diesem Thema:
Microsoft Support

Wie bei schritt 7 habe ich im Detailbereich die Eigenschaften:
Vergrößerbar: Ja
Verkleinerbar: Ja
ergänzt.

Ich benutze Access 2010.

Wäre toll wenn mir jemand sagen kann, was ich falsch mache. Ich dreh mittlerweile nur noch am Rad. ^^

Würde mich auch über eine Test DB freuen, bei der das bereits funktioniert. *Smilie

Vielen Lieben Dank an alle Helfer.

Lieber Gruss
Derrazu

:)

 

Moin,
ich habe nur eine Vermutung. Möglicherweise tritt das Ereignis Print nur für den Haupt-, aber nicht für die Unterberichte ein. Du müsstest also möglicherweise vom Hauptbericht aus die Linien in den UBs setzen.
maike

 

Hallo Maike

Vielen Dank für deine rasche Rückmeldung.
Das habe ich ehrlichgesagt auch gedacht, da ich diese Erfahrung schon mit anderen Funktionen beim Bericht feststellen musste.
Aber ich habe es beim Haupt sowie beim UB versucht, leider ohne Erfolg. Ich hoffe nicht, dass es an Acc 2010 liegt. Höchstwahrscheinlich übersehe ich irgend ein winziges Detail. :/

 

Hallo Derrazu,

auch ich nutze in einem Bericht dynamisch generierte senkrechte Linien.

Meine Felder für die Liste habe ich im Detailbereich mit der Eigenschaft vergrößerbar - allesamt ohne Rahmen. Über die Eigenschaften des jeweiligen feldes lässt sich die Position und Breite exakt bestimmen.

Unter der Zeile mit den Feldern ist eine horizontale Linie über die gesamte Breite des Bereichs.

Der Detailbereich hat den VBA-Code Beim Formatieren:
Code:

Ich denke, der Code ist recht einfach anzupassen; da er bereits beim Formatieren greift, sieht man die Linien bereits in der Vorschau.

Ich hoffe, es hilft Dir weiter!

 

Hallo Norbert,

das Zeichnen von vertikalen Trennlinien in einem vergrößerbaren Berichtsbereich lässt sich deutlich einfacher lösen.

1. Beispiel für die Ausrichtung der Trennungslinien an den Bezeichnungsfeldern mit den Spaltenüberschriften: Code:

2. Beispiel für das Verlängern vorhandener Linien: Code:

Voraussetzung ist jeweils eine systematische Benennung der Steuerelemente, bspw. "bez01" bis "bez13" oder "L01" bis "L07".

 

Hallo zusammen,

Vlt. skizzierst du, wo du die Linien genau haben möchtest.

Damit liegst du knappe 170 m neben deinem Papier, wenn es nicht nur ein Kopierfehler ist. *wink.gif*
vgl. 16.998 vs. 16,998 (Punkt vs. Komma)

 

Hi,

Irrtum, der Punkt ist an der Stelle völlig OK. Das Komma hat im VBA-Code eine ganz andere Bedeutung.

 

Hallo allerseits,

Wenn das stimmt, hat Marsu in einem recht: Die Linie ist irgendwo weit weg. ScaleMode 7 bedeutet Festlegung auf Maßeinheit Zentimeter, aber die ca. 17 cm werden bei dir noch mit dem Twip-Faktor 567 multipliziert.

Übrigens, eine Fehlerbehandlung in der Routine wäre u.U. hilfreicher als nur blindlings raten, was hier passiert.

Und noch etwas, allgemein für VBA: Option Explicit gehört grundsätzlich in den Kopf aller Module, das Fehlen desselben kann die "tollsten" Fehlersuchen bewirken, nach dem Motto *stupid ! Siehe dazu auch Option "Variablendeklaration erforderlich" im VB Editor.

 

Interessant, dass der Code zwar beim Formatieren eingegeben werden musste, dann aber trotzdem nur im Ausdruck sichtbar ist. Egal, damit habe ich erreicht, was ich wollte *biggrin.gif*

Vielen lieben Dank an NorbertK für den geposteten Code, beim 1:1 übernehmen hat das gleich geklappt. Dann muss ich den jetzt nur noch anpassen.

Auch danke an Anne Berg für die effizientere For variante. Ich persönlich mag es nicht per For zu programmieren, auch wenn es wohl schöner gelöst wäre. Hauptsache es klappt *Smilie

Mit Option Explicit habe ich in Access VBA schlechte Erfahrung gemacht. bei Excel VBA allerdings ist Option Explicit ein muss.

Danke auch für die Aufklärung mit dem ScaleMode und dem Twip Faktor. *Smilie

 

Hi,

Format oder Print ist egal, solange du den Bericht nicht in der Berichtsansicht öffnest.

Das wüsste ich gern genauer. Noch schlechtere Erfahrungen könnten jedenfalls ohne diese Option auf dich zukommen!

 

Hm. Also wenn ich den Code direkt im Unterbericht eingefügt habe und drucke geht es, wenn ich nur den Unterbreicht drucken lasse.

Wenn ich nun aber über den Hauptbericht gehe, geht der Code für den Unterbericht nicht mehr. Der Detailbereich des Unterberichts bleibt weiss ohne Linien.

Den Code im Hauptbericht eingefügt, macht dass er gar nicht mehr druckt.

Schade, dass ich nicht ohne die Unterberichte auskommen kann.

Naja, ich tüftle noch ein bisschen rum in diesem Fall.

 

Wie sieht denn

bzw.

konkret aus?
maike

 

Wenn du die Zusammenhänge genauer erklärst und die Namen der beteiligten Objekte nennst, könnte man dir vielleicht helfen.
Und dann zeige auch bitte deinen Code dazu.

 

habe mal eine seeehr abgespeckte Datenbank auf meinen Webspace geladen

http://home.datacomm.ch/logi/VBA Linien.rar

Es handelt sich um eine Frontend und Backend Datenbank.

Ziel der Sache ist es, dass man dies als Offerte drucken kann. Die Linien sollte auf Seite 3 bei den Berichten erscheinen und die Zahlen vom Text schön trennen, sodass es gestalterisch halt was her macht. Das braucht also 4 Linien.

Wie erwähnt kommen die Linien auf HROfferteHauptS3, wenn man nur diesen Unterbericht öffnet und druckt. Aber beim drucken über HROfferteHauptS1 , also über den Hauptbericht, bleibt der untere Teil wo HROfferteHauptS3 kommen sollte weiss und ohne Daten.

 

Hallo,

ich weiß nicht recht, was du mit dem Beispiel zeigen willst. Sowohl beim Öffnen von Bericht-1 wie auch Bericht-3 werden senkrechte Linien angezeigt, allerdings ist dies nur eine und keineswegs spaltengerecht platziert und die gesamte Detailbereichshöhe abdeckend. Ich denke, du wärst gut beraten, wenn du dir meine Beispiele aus #5 noch einmal anschauen würdest.

Das kann ich nicht bestätigen. Es wäre wohl nicht verkehrt, die Beispiel-DB vor dem Upload selbst noch einmal auszutesten.

BTW:
Die Berichtsansicht ist hier offensichtlich nicht die geeignete Sicht, statt dessen sollte die Seitenansicht gewählt werden.
Wie bereits erwähnt wurde, wird das Format-Ereignis bei der Berichtsvorschau nicht ausgelöst.