<\/p>\n
Berichte lassen sich dank der unterschiedlichen Bereiche bereits sehr flexibel gestalten. Manchmal reicht dies aber nicht aus – zum Beispiel, wenn mehrere Datensätze in eine Zeile, mehrfach oder gar nicht gedruckt werden sollen. In diesem Fall helfen die drei Eigenschaften MoveLayout, NextSection und PrintSection in diversen Kombinationen weiter.<\/b><\/p>\n
Wozu mehr Flexibilität<\/p>\n
Das Standardbeispiel für den Einsatz zumindest von zwei der oben genannten Eigenschaften ist der Etikettendruck. Es sollen meist mehrere Datensätze in einer Zeile gedruckt werden und die Anzahl der Exemplare je Datensatz variiert von keinem bis beliebig vielen.<\/p>\n
Dass man dazu allenfalls noch die Eigenschaft MoveLayout <\/b>benötigt, wenn man die Datenherkunft des Berichts vorher entsprechend anpasst, haben wir bereits in [1] gezeigt.<\/p>\n
Access-Berichte bieten nur wenig Flexibilität, wenn es beispielsweise um mehrspaltige Berichte geht. So können Sie beispielsweise ohne Unterbericht und sonstige Tricks keinen einspaltigen Gruppenkopf mit zweispaltigen Detaildatensätzen realisieren. Die Seiteneinrichtung liefert zwar die Möglichkeit, mehrspaltige Berichte einzurichten und auch die Reihenfolge (von links nach rechts, von oben nach unten) festzulegen, aber Bereiche wie Gruppenköpfe oder -füße werden dort nicht berücksichtigt. Wenn Sie etwa den Bericht mit der Entwurfsansicht aus Bild 1 mit den Einstellungen aus Bild 2 ausgeben, erhalten Sie den Bericht aus Bild 3.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Entwurf eines zweispaltigen Berichts<\/span><\/b><\/p>\n Bild 2: Einstellungen für einen zweispaltigen Bericht<\/span><\/b><\/p>\n Bild 3: Verunglückter zweispaltiger Bericht mit Gruppierung nach Kategorien<\/span><\/b><\/p>\n Ein besseres Ergebnis erhalten Sie, wenn Sie die Mehrspaltigkeit selbst realisieren. Dazu stellen Sie einfach die Spaltenanzahl wieder auf den Wert 1 <\/b>ein und gehen wie folgt vor.<\/p>\n MoveLayout – nächste Zeile oder nicht<\/b><\/p>\n Die Eigenschaft MoveLayout <\/b>legt fest, ob der Inhalt des folgenden Bereichs in den aktuellen Bereich hineingeschrieben werden soll. Um dies zu verstehen, muss man wissen, dass Access Berichte Bereich für Bereich aufbaut. Bei allen Bereichen gibt es wiederum Prüfungen, ob diese noch auf die aktuelle Seite passen, ansonsten werden die notwendigen Schritte unter den gegebenen Bedingungen noch einmal wiederholt.<\/p>\n Im vorliegenden Fall wird Access zunächst den Gruppenkopf-Bereich der ersten Artikelkategorie anlegen und dann mit den Detaildatensätzen fortfahren – bis ein Datensatz nicht mehr auf die aktuelle Seite passt und eine neue Seite begonnen wird.<\/p>\n Sie können in das Erstellen von Bereichen einwirken, indem Sie VBA-Code etwa für die Beim Formatieren<\/b>-Ereignisprozeduren anlegen. Eine Möglichkeit, den Ablauf zu beeinflussen, ist das Setzen der Eigenschaft MoveLayout <\/b>auf den Wert False<\/b>. Diese Eigenschaft wird von Access standardmäßig vor dem Abarbeiten dieser Ereigniseigenschaft auf den Wert True <\/b>gesetzt, sodass normalerweise nach dem Schreiben des aktuellen Bereichs der folgende Bereich beschrieben wird.<\/p>\n Wenn Sie die Ereignisprozedur, die beim Formatieren des Detailbereichs ausgelöst wird, wie folgt füllen, springt Access bei keinem der Detaildatensätze zum nächsten, darunterliegenden Bereich, sondern schreibt alle Datensätze in den gleichen Bereich. Dass dies keinen Sinn ergibt, zeigt Abb. 4.<\/p>\n Bild 4: Stellt man die Eigenschaft MoveLayout für den Detailbereich auf False, druckt Access alle Datensätze einer Grupierung in den gleichen Detailbereich.<\/span><\/b><\/p>\n Die gleiche Wirkung erhalten Sie übrigens auch, wenn Sie MoveLayout <\/b>für andere Bereiche wie Berichts-, Seiten- oder Gruppierungsköpfe und -füße auf False <\/b>einstellen – Sie erhalten dann einen Bericht in sehr kompakter, aber ziemlich schlecht lesbarer Form.<\/p>\n MoveLayout <\/b>will daher sehr gezielt eingesetzt werden, etwa, um Daten in zwei oder mehr Spalten anzuzeigen, was bedeutet, dass man nach dem Ausgeben des jeweils ersten Datensatzes MoveLayout <\/b>auf False <\/b>einstellt und die Steuerelemente des zweiten Datensatzes weiter rechts platziert. <\/p>\n Wenn Sie einen Bericht mit der Entwurfsansicht aus Bild 5 zweispaltig gestalten möchten, legen Sie die Ereigniseigenschaft Beim Formatieren <\/b>des Detailbereichs an (Detailbereich markieren, Doppelklick in Eigenschaft Beim Formatieren<\/b>, Klick auf die danebenliegende Schaltfläche) und füllen diese wie in Listing 1.<\/p>\n Bild 5: Entwurfsansicht eines Berichts, der zweispaltig ausgegeben werden soll. Im Gegensatz zu einem Bericht, bei dem Sie über die Seiteneinrichtung Zweispaltigkeit erreichen wollen, müssen Sie die Breite dieses Berichts direkt auf zwei Spalten auslegen.<\/span><\/b><\/p>\n Listing 1: Aufteilen von Steuerelementen auf zwei Spalten<\/p>\n <\/p>\n Das Prinzip ist einfach: Der Zähler intArtikel <\/b>wird für jeden Datensatz um eins erhöht. Die If<\/b>-Bedingung prüft, ob intArtikel<\/b> gerade oder ungerade ist. Ist intArtikel<\/b> gerade, wurde soeben ein Datensatz in die linke Spalte geschrieben. Dann gehört der folgende Datensatz in die rechte Spalte der gleichen Zeile, also setzt die Routine MoveLayout <\/b>auf False<\/b>.<\/p>\n Beim nächten Datensatz enthält intArtikel <\/b>eine gerade Zahl, wodurch die Steuerelemente nach rechts verschoben werden. MoveLayout <\/b>wird nicht auf False <\/b>gesetzt, was dazu führt, dass es den Wert True <\/b>behält, den Access ihm vor der Format<\/b>-Eigenschaft eines jeden Bereichs zuweist.<\/p>\n Damit wäre die Aufgabe fast erledigt, wenn Access nicht so lange versuchen würde, Datensätze auf eine Seite zu quetschen, bis keiner mehr draufpasst, und den nicht mehr passenden Datensatz dann auf der nächsten Seite ausgäbe.<\/p>\n Dadurch löst es nämlich das Beim Formatieren<\/b>-Ereignis zweimal aus – einmal für den Versuch, den Datensatz noch auf die aktuelle Seite zu schreiben, und einmal für das tatsächliche Schreiben auf die folgende Seite. Um dies zu umgehen, legen Sie kurzerhand noch eine Routine für die Ereigniseigenschaft Bei Seite <\/b>an, die den Zähler intArtikel <\/b>beim Seitenwechsel wieder auf 0 <\/b>setzt.<\/p>\n Zweispaltiger Bericht mit einspaltigem Gruppenkopf<\/b><\/p>\n Nun erhalten Sie dieses Ergebnis auch, wenn Sie die Spaltenanzahl in der Seiteneinrichtung für diesen Bericht entsprechend einstellen. Also steigern wir die Anforderung ein wenig: Die Artikel sollen nun nach Kategorie gruppiert und mit einem Gruppenkopf versehen werden.<\/p>\n Im Entwurf ist das alles ganz einfach und sieht wie in Bild 6 aus. Zum Entwurf des vorherigen Berichts kommt lediglich die Gruppierung mit dem Gruppenkopf hinzu, das Feld KategorieID<\/b> können Sie aus dem Detailbereich entfernen, da die Kategorie ja nun schon im Gruppenkopf ausgegeben werden soll.<\/p>\n Bild 6: Entwurf eines zweispaltigen Berichts mit Gruppenkopf<\/span><\/b><\/p>\n Das richtige Anordnen der Datensätze wird nun noch ein wenig schwieriger: So müssen Sie etwa berücksichtigen, dass die Eigenschaft MoveLayout <\/b>vor einer neuen Gruppe auf jeden Fall auf den Wert True <\/b>eingestellt wird, da sonst der letzte Datensatz der alten Gruppe mit dem Gruppenkopf in eine Zeile gedruckt wird. Das ist kein Problem, wenn der letzte Datensatz einer Gruppe der letzte Datensatz in der Zeile ist – MoveLayout <\/b>wird ja dann auf jeden Fall auf den Wert True <\/b>gesetzt.<\/p>\n Die Lösung ist eine Variable namens intAnzahlGruppe<\/b>, der die Ereignisprozedur Beim Formatieren <\/b>des Gruppenkopfes die Anzahl der Datensätze der aktuellen Gruppe zuweist. Enthält der Zähler intArtikel <\/b>diesen Wert, ist der letzte Datensatz der Gruppe erreicht und MoveLayout <\/b>muss auf True <\/b>gesetzt werden, damit der Kopfbereich der folgenden Gruppe in einer neuen Zeile gedruckt wird.<\/p>\n Daten mehrfach drucken mit NextRecord<\/b><\/p>\n Die Eigenschaft NextRecord <\/b>legt fest, ob ein Bereich den nächsten Datensatz ausgeben soll. Diese Eigenschaft ist hilfreich, wenn Sie Datensätze mehrere Male ausgeben möchten. Sie wird genau wie MoveLayout <\/b>im Beim Formatieren<\/b>-Ereignis eingestellt und wirkt sich ebenfalls auf den folgenden Bereich aus. <\/p>\n Grundlage ist etwa der Bericht aus Bild 7. Er zeigt einige Daten in Tabellenansicht an und soll die Funktion von NextRecord <\/b>demonstrieren. Dafür legen Sie einfach die Prozedur aus Listing 3 für die Ereigniseigenschaft Beim Formatieren <\/b>des Detailbereichs an.<\/p>\n Bild 7: Entwurf eines Berichts, dessen Datensätze mehrmals angezeigt werden sollen<\/span><\/b><\/p>\n Listing 2: Ausgeben mehrspaltiger Berichte mit einspaltigen Listing 3: Mehrfache Ausgabe von Datensätzen nach dem Zufallsprinzip<\/p>\n Die Routine entscheidet anhand einer Zufallsfunktion, ob der Bericht den aktuellen Datensatz erneut ausgeben soll. Normalerweise würden Sie diese Information vermutlich aus der Datenherkunft des Berichts beziehen, in diesem Fall soll diese einfache Funktion allerdings ausreichen.<\/p>\n Davon abgesehen ist dieser Weg die schlechtere und aufwändigere Alternative gegenüber dem vorherigen Anpassen der Datenherkunft wie in [1] beschrieben.<\/p>\n Leere Zeilen einfügen mit PrintSection<\/b><\/p>\n Die PrintSection<\/b>-Eigenschaft eines Bereichs legt fest, ob dieser gedruckt werden soll. Damit können Sie beispielsweise leere Zeilen in eine Reihe von Datensätzen einbauen. So lassen sich etwa lange Listen durch Einfügen von Zwischenräumen etwas auflockern.<\/p>\n Grundlage für das folgende Beispiel ist wiederum ein Bericht mit der Entwurfsansicht aus Bild 7. Auch hier legen Sie eine Ereignisprozedur für die Eigenschaft Beim Formatieren <\/b>an und weisen ihr den Code aus Listing 4 zu.<\/p>\n Listing 4: Ausgabe tabellarischer Daten mit Leerzeile nach jeweils fünf Datensätzen<\/p>\n Zusätzlich fügen Sie die Deklaration der dort angegebenen Variablen intArtikel <\/b>und die Konstante intZeilenProPaeckchen <\/b>ein, wobei Letztere die Anzahl der zusammenhängenden Datensätze ohne Leerzeile enthält.<\/p>\n Die Routine erhöht mit jedem Aufruf den Zähler intArtikel <\/b>und prüft, ob dieser größer als die angegebene Päckchengröße ist. Falls ja, wird eine leere Zeile gedruckt und der Zähler wieder auf 0 <\/b>gesetzt. Das Ergebnis finden Sie in Bild 8.<\/p>\n ![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic002_opt.jpeg\")
<\/p>\n![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic005_opt.jpeg\")
<\/p>\nDim intArtikel As Integer\r\nConst intAbstand As Integer = 4000\r\nPrivate Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n intArtikel = intArtikel + 1\r\n If intArtikel Mod 2 = 1 Then\r\n Me.MoveLayout = False\r\n Me!Bezeichnungsfeld0.Left = 0\r\n Me!ArtikelID.Left = 1000\r\n Me!Bezeichnungsfeld1.Left = 0\r\n Me!Artikelname.Left = 1000\r\n 'weitere Steuerelemente\r\n Else\r\n Me!ArtikelID.Left = 1000 + intAbstand\r\n Me!Bezeichnungsfeld0.Left = 0 + intAbstand\r\n Me!Artikelname.Left = 1000 + intAbstand\r\n Me!Bezeichnungsfeld1.Left = 0 + intAbstand\r\n 'weitere Steuerelemente\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic007_opt.jpeg\")
<\/p>\n![\"pic008.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic008_opt.jpeg\")
<\/p>\n
Gruppenköpfen<\/p>\nDim intArtikel As Integer\r\nDim intAnzahlGruppe As Integer\r\nConst intAbstand As Integer = 4000\r\nPrivate Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n intArtikel = intArtikel + 1\r\n If intArtikel Mod 2 = 1 Then\r\n Me.MoveLayout = False\r\n Me!Bezeichnungsfeld0.Left = 0\r\n Me!ArtikelID.Left = 1000\r\n Me!Bezeichnungsfeld1.Left = 0\r\n Me!Artikelname.Left = 1000\r\n 'weitere Steuerelemente\r\n Else\r\n Me!Bezeichnungsfeld0.Left = 0 + intAbstand\r\n Me!ArtikelID.Left = 1000 + intAbstand\r\n Me!Bezeichnungsfeld1.Left = 0 + intAbstand\r\n Me!Artikelname.Left = 1000 + intAbstand\r\n 'weitere Steuerelemente\r\n End If\r\n If intArtikel = intAnzahlGruppe Then\r\n Me.MoveLayout = True\r\n End If\r\nEnd Sub\r\nPrivate Sub Gruppenkopf1_Format(Cancel As Integer, FormatCount As Integer)\r\n intAnzahlGruppe = DCount("*", "tblArtikel", "KategorieID = " & Me.KategorieID)\r\n intArtikel = 0\r\nEnd Sub\r\nPrivate Sub Report_Page()\r\n intArtikel = intArtikel - 1\r\nEnd Sub<\/pre>\n<\/p>\nPrivate Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n If Rnd() > 0.5 Then\r\n Me.NextRecord = False\r\n End If\r\nEnd Sub<\/pre>\n
Dim intArtikel As Integer\r\nConst intZeilenProPaeckchen As Integer = 5\r\nPrivate Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n intArtikel = intArtikel + 1\r\n If intArtikel > intZeilenProPaeckchen Then\r\n Me.PrintSection = False\r\n intArtikel = 0\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic009.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Berichtseigenschaften-web-images\/pic009_opt.jpeg\")
<\/p>\n