<\/p>\n
Die Ausgabe von Rechnungen dürfte einer der beliebtesten Anwendungszwecke für die Erstellung von Berichten sein. Gleichzeitig sind Rechnungsberichte aber auch eine der anspruchsvollsten Aufgaben – zumindest, wenn man sämtlichen Schnickschnack wie Zwischensumme und übertrag, vernünftige Aufteilung der Positionen bei mehrseitigen Berichten, keine letzte Seite ohne wesentliche Informationen et cetera berücksichtigen will. Und wenn Sie dann noch mehrere Rechnungen in einem Bericht abbilden wollen, haben Sie das Ziel erreicht.<\/b><\/p>\nDatenherkunft für den Bericht<\/h2>\n
Als Grundlage verwenden wir die Bestelldaten aus der Suedsturm-Datenbank. We-lche Tabellen Sie für die dem Bericht zugrunde liegende Abfrage benötigen, lässt sich mit einem Blick auf eine herkömmliche Rechnung herausfinden. Für die Anschrift des Kun-den benötigen Sie die tblKunden<\/b>-Tabelle, den Rest erledigen die in einer m:n-Beziehung ste-henden Tabellen tblBestellungen<\/b>, tblBestelldetails<\/b> und tblArtikel<\/b>. Damit der Kunde weiß, an wen er sich bei Fragen wenden kann, nehmen Sie noch die Tabelle tblPersonal<\/b> hinzu, die ebenfalls mit der Tabelle tblBestellungen<\/b> verknüpft ist. Die als Datensatzquelle verwendete Abfrage sieht schließ-lich wie in Bild 1 aus.<\/p>\n
![\"](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_001.png\")
<\/p>\n
Bild 1: Datensatzquelle für den Rechnungsbericht (qryRechnungsbericht)<\/span><\/b><\/p>\n Den aktuellen Steuergesetzen entsprechend wurde der Tabelle Bestellung<\/b> noch ein Feld namens Rechnungsnummer<\/b> hinzugefügt. Das Feld hat den Datentyp Text<\/b>, um auch Zeichen wie Bindestriche oder Schrägstriche zu ermöglichen. Wie Sie die Rechnungsnummer ermitteln, bleibt Ihnen überlassen. Eine Rechnungs-num-mer muss aber auf jeden Fall eindeutig sein.<\/p>\n Manch einer verwendet eine bei 1 startende Nummerierung in Zusammenhang mit der Jahreszahl (zum Beispiel 2016-01<\/b>); andere lassen die Kundennummer in die Rech-nungs-nummer einfließen. Wer wichtig wirken möchte, verwendet eine Rechnungs-nummer wie 950 752 0642<\/b>.<\/p>\n In der Beispieltabelle tblBestellungen <\/b>ist die Rechnungsnummer schlicht eine Kom-bi-nation aus dem Datum der Rechnungstellung und dem Primärschlüssel der Tabelle (etwa 20161009-11077). So können Sie auch einmal nur einfach in den Ordner mit Rechnungen schauen, wenn ein Kunde (oder der Steuerprüfer) dazu eine Frage hat – voraus-gesetzt dort liegen die Rechnungen in chronologischer Reihenfolge vor …<\/p>\n Außerdem wurde die Tabelle Artikel<\/b> um ein Feld namens Mehrwertsteuersatz<\/b> erweitert (s. Bild 2), das zu Testzwecken nicht durchgängig den Wert 7%<\/b> enthält, wie es für Lebensmittel üblich ist, sondern dem wir hier und da auch mal den Wert 19% hinzugefügt haben. Die Tabelle tblBestelldetails <\/b>enthält das gleiche Feld, in das bei einer Bestellung der gültige Mehrwertsteuersatz übertragen werden soll – auf diese Weise kann man die Mehrwertsteuersätze für die Tabelle tblArtikel <\/b>ändern, ohne dass sich dies auf bereits erstellte Datensätze in der Tabelle tblBestellpositionen <\/b>auswirkt. Wir wollen ja gegebenenfalls auch einmal eine Rechnungskopie drucken können, ohne dass dort wegen geänderter Mehrwertsteuersätze plötzlich neue Rechnungsbeträge herauskommen.<\/p>\n Bild 2: Das neue Feld Mehrwertsteuersatz in der Tabelle tblArtikel<\/span><\/b><\/p>\n Das Feld Mehrwertsteuersatz <\/b>haben wir mit dem Datentyp Währung <\/b>versehen. Auf diese Weise erhalten wir die gewünschte Genauigkeit. Außerdem haben wir das Format auf Prozentzahl <\/b>eingestellt und die Anzeige der Dezimalstellen auf 0 <\/b>– sollten einmal Mehrwertsteuersätze wie 19,5% <\/b>auftauchen, kann man dies nachträglich ändern.<\/p>\n Auf die gleiche Weise haben wir auch die Felder Mehrwertsteuersatz <\/b>und Rabatt <\/b>in der Tabelle tblBestelldetails <\/b>angepasst.<\/p>\n Die Abfrage selbst wurde um ein berechnetes Feld namens Bruttopreis<\/b> ergänzt, das den Bruttopreis einer jeden Position enthält (siehe Auflistung). Außerdem gibt es noch zwei weitere berechnete Felder namens Netto <\/b>und MwStBetrag<\/b>. Sie verwenden in diesem Bericht folgende Felder:<\/p>\n Die letzten beiden Felder werden nicht in der Auflistung der Positionen angezeigt, sondern dienen nur der Ermittlung der Summe der Nettopreise und der Mehrwertsteuer am Ende der Rechnung.<\/p>\n Wenn Sie mit früheren Versionen der Suedsturm-Datenbank experimentiert haben, ist Ihnen vielleicht auch aufgefallen, dass wir den Namen des Feldes Anzahl <\/b>in der Tabelle tblBestelldetails <\/b>durch Menge <\/b>ersetzt haben. Der Grund ist einfach: In der deutschen Version von Access ist Anzahl <\/b>ein reserviertes Wort, was hier und da zu Problemen führen könnte. Daher haben wir es durch die Bezeichnung Menge <\/b>ersetzt.<\/p>\n Bevor Sie sich an die Erstellung eines Berichts machen, sollten Sie die Daten in Gedanken (oder auch auf dem Papier) kurz auf die einzelnen Bereiche eines Berichts aufteilen und sich überlegen, welche Daten etwa nur auf der ersten Seite angezeigt werden, was passiert, wenn so viele Datensätze vorhanden sind, dass der Bericht über mehrere Seiten geht, und so weiter.<\/p>\n Im vorliegenden Fall haben Sie es mit einem ziemlich großen Berichtskopf zu tun: Dieser enthält den kompletten Briefkopf, die Anschrift des Kunden, Lieferdaten und so weiter. Moment: Ist das wirklich so Wenn der Berichtskopf bereits kundenspezifische und damit rechnungsspezifische Daten enthält, dann können Sie nur eine Rechnung je Bericht ausgeben. Warum Weil der Berichtskopf nur einmal je Bericht angezeigt wird. Wenn Sie aber mal einen ganzen Schwung Rechnungen ausdrucken möchten, haben Sie ein Problem: Sie müssen dann schon den gleichen Bericht mehrere Male aufrufen. Natürlich geht das auch, aber in diesem Fall sollen Sie einen Bericht erstellen, der mehrere Rechnungen auf einen Rutsch anfertigen kann.<\/p>\n Also benötigen Sie eine Gruppierung über die einzelnen Bestellungen – als Gruppierungsfeld bietet sich das Feld BestellungID<\/b> an. Im Gruppenkopf bringen Sie nun alles unter, was Sie sonst in den Berichtskopf packen wollten – Briefkopf, Anschrift, Bestelldaten wie Bestellnummer und so weiter.<\/p>\n Die einzelnen Positionen gehören – ganz klar – in den Detailbereich. Darüber benötigen Sie Feldüberschriften: Diese können Sie auf der ersten Seite direkt im Gruppenkopf unterbringen, auf den folgenden Seiten im Seitenkopf. Dieser darf dann wiederum nicht auf der ersten Seite angezeigt werden – dazu später mehr. Nach der letzten Rechnungsposition folgt noch die Rechnungssumme. Dafür bietet sich der Berichtsfuß an. Auf der Seite mit dem Berichtsfuß soll wiederum kein Seitenfußbereich angezeigt werden.<\/p>\n Wenn Sie dem Kunden ein wenig mehr Komfort bieten möchten, sorgen Sie auch noch für eine Zwischensumme und einen übertrag. Die Zwischensumme gehört mit in den Seitenfuß, der übertrag in den Seitenkopf – dieser erscheint aber nur auf den Seiten, die keinen Gruppierungskopf anzeigen. Sie sehen – eine Rechnung ist nicht gerade der trivialste Bericht, der sich mit Access erstellen lässt, und er enthält noch nicht einmal Gruppierungen.<\/p>\n Normalerweise würden wir den Briefkopf im Bereich Berichtskopf<\/b> eines Berichts anlegen. Eigentlich logisch – der erscheint schließlich maximal einmal, und zwar auf der ersten Seite.<\/p>\n Allerdings wollen wir dabei nicht vergessen, dass wir nicht nur eine Rechnung, sondern gegebenenfalls auch mehrere Rechnungen in einem Bericht ausgeben wollen. Das heißt also, dass wir die Daten des Briefkopfs in den Gruppenkopf für die einzelnen Rechnungen packen müssen. So benötigen wir also eine Gruppierung für den Bericht, der die Daten unserer Datenherkunft nach den Datensätzen der Tabelle tblBestellungen<\/b> gruppiert. Diesen richten Sie wie in Bild 3 ein. Hier wählen Sie außerdem die Eigenschaftswerte mit Kopfzeilenbereich<\/b>, mit Fußzeilenbereich <\/b>und Kopfzeile und ersten Datensatz auf einer Seite zusammenhalten <\/b>aus.<\/p>\n Bild 3: Einrichtung der Gruppierung für den Rechnungsbericht<\/span><\/b><\/p>\n Die Erstellung des Gruppenkopfs einer Rechnung ist im Wesentlichen Design-Arbeit und weniger Denksport. Hier bringen Sie den Briefkopf unter, den Block mit der Emp-fän-geradresse und den Block mit den allgemeinen Rechnungsdaten (s. Bild 4).<\/p>\n Bild 4: Einrichtung des Gruppenkopfes für die Rechnung<\/span><\/b><\/p>\n Hier gibt es folgende Besonderheiten: Das Feld txtPLZUndOrt<\/b> fasst die Felder PLZ und Ort<\/b> der Tabelle Kunden<\/b> zusammen. Wichtig ist hier wie bei anderen Steuerelementen, dass Sie Tabellennamen und Feldnamen von in mehreren Tabellen vorkommenden Feldern durch Punkt getrennt schreiben und in eckige Klammern einfassen. Dies geschieht noch einmal im Gruppenkopf, und zwar im Textfeld txtAnsprechpartner<\/b>. Dessen Inhalt lautet:<\/p>\n Die Feldüberschriften werden Sie normalerweise erst im folgenden Schritt beim Füllen des Detailbereichs anlegen, in der Abbildung sehen Sie aber bereits ihre Anordnung.<\/p>\n Der Detailbereich ist reine Fleißarbeit – abgesehen von einem Feature, das aber erst später hinzukommt, und der Angabe der Rechnungspositionen. Der Detailbereich enthält die Felder Artikelname<\/b>, Liefereinheit<\/b>, Bruttopreis<\/b>, Einzelpreis, Menge, Rabatt<\/b>, Mehrwertsteuersatz <\/b>und Bruttopreis<\/b>, wobei Letzteres das berechnete Feld ist, das Sie der Abfrage weiter oben hinzugefügt haben. Es fehlt noch das ganz linke Feld in der Entwurfsansicht (s. Bild 5). Es heißt txtPosition<\/b> und besitzt als Steuerelementinhalt den Wert =1<\/b>. Damit dieses Feld die Position des Artikels für die aktuelle Rechnung, also innerhalb der aktuellen Gruppierung, anzeigt, stellen Sie die Eigenschaft Laufende Summe<\/b> dieses Feldes auf über Gruppe<\/b> ein.<\/p>\n <\/p>\n Bild 5: Einrichtung des Detailbereichs<\/span><\/b><\/p>\n Außerdem fügen Sie das Feld Bruttopreis <\/b>erneut hinzu (siehe das markierte Feld in der Abbildung). Für dieses stellen Sie die Eigenschaft Sichtbar <\/b>auf Nein <\/b>ein sowie Laufende Summe <\/b>auf über Gruppe<\/b>. Geben Sie diesem Feld außerdem die Bezeichnung txtLaufendeSumme<\/b>. Wir benötigen es später für die Zwischensumme und den übertrag.<\/p>\n Möglicherweise fragen Sie sich, ob man die Berechnung des Bruttopreises und der anderen berechneten Felder in der Abfrage nicht auch innerhalb des Berichts hätte durchführen können. Die Frage ist berechtigt, da das sogar funktionieren würde. Das Problem ist nur, dass Sie keine datensatzübergreifenden Berechnungen über den Bezug auf das Feld mit dem Berechnungsergebnis durchführen könnten. Ein in der Abfrage berechnetes Feld behandelt Access im Bericht aber wie ein normales Tabellenfeld; hier sind Berechnungen wie etwa das Bilden der Summe über alle Datensätze einer Gruppierung möglich.<\/p>\n Streng genommen würde man im Bericht auch ohne das in der Abfrage berechnete Feld auskommen, aber dann müsste man im Feld zur Berechnung der Summe über mehrere Datensätze Bezug auf die Berechnungsformel nehmen und nicht auf das Feld mit dem Berechnungsergebnis.<\/p>\n Im Fußbereich der Gruppierung heißt es: Abrechnen! Hier wird die Summe über die Felder Netto<\/b>, MwStBetrag <\/b>und Bruttopreis<\/b> des Detailbereichs gebildet und schließlich noch der Frachtkostenanteil hinzuaddiert (s. Bild 6).<\/p>\n Bild 6: Steuerelemente für den Fußbereich<\/span><\/b><\/p>\n Dazu fügen Sie für die Eigenschaft Steuerelement einfach den Feldnamen ein und fügen die Summe()<\/b>-Funktion hinzu, sodass beispielsweise =Summe([Netto]) <\/b>daraus wird.<\/p>\n Achtung: Interessanterweise müssen wir für die Eigenschaft Laufende Summe <\/b>für die Summentextfelder nicht etwa den Wert über Gruppe <\/b>auswählen, sondern den Wert Nein <\/b>beibehalten (s. Bild 7).<\/p>\n Bild 7: Einstellung der Eigenschaft LaufendeSumme für die Summenfelder<\/span><\/b><\/p>\n Unterhalb der Rechnungssumme ist ein guter Ort, um die Bankverbindung unterzubringen.<\/p>\n Diese könnte man zwar auch auf der ersten Seite zu den allgemeinen Rechnungsdaten hinzufügen, aber der Rechnungsempfänger wird sich freuen, wenn er zum Begleichen der Rechnung per Online-Banking bei mehrseitigen Rechnungen nicht noch hin- und herblättern muss.<\/p>\n Der Fußbereich greift auf zwei Felder zurück, die sich zwar in der Abfrage, aber nicht im Detailbereich des Berichts befinden: Netto<\/b> und MwStBetrag<\/b>. Diese werden aus Gründen der übersicht nicht in jedem Datensatz angezeigt, sondern nur aufsummiert am Ende der Rechnung.<\/p>\n Ist abzusehen, dass sich einige Rechnungen über mehrere Seiten erstrecken, macht die Angabe von Zwischensumme und übertrag Sinn. Die Zwischensumme platzieren Sie im Bereich Seitenfuß<\/b> des Berichts (s. Bild 8). Zur Ermittlung der laufenden Summe müssen Sie zunächst ein zusätzliches unsichtbares Feld im Detailbereich anlegen. Dieses erhält den Namen txtLaufendeSumme<\/b> und hat als Steuer-elementinhalt den Wert =BruttoPreis<\/b>. Damit die laufende Summe nur im Rahmen der aktuellen Rechnung ermittelt wird, stellen Sie die Eigenschaft Laufende Summe<\/b> auf über Gruppe<\/b> ein.<\/p>\n Bild 8: Entwurfsansicht des Seitenfußes mit der laufenden Summe<\/span><\/b><\/p>\n Dieses Feld enthält jeweils den Inhalt des gleichen Feldes aus dem vorherigen Datensatz zuzüglich des Inhalts des Feldes Bruttopreis <\/b>des aktuellen Datensatzes. Das Feld txtZwischensumme<\/b> im Seitenfuß des Berichts enthält den Inhalt des Feldes txtLaufendeSumme<\/b>, welcher am Seitenende dem Wert des untersten angezeigten Datensatzes entspricht.<\/p>\n Fehlen noch die Feldüberschriften für die Folgeseiten in Rechnungen, die über mehr als eine Seite gehen.<\/p>\n Diese platzieren Sie genau wie das Feld zur Anzeige des Rechnungsübertrags im Seitenkopf des Berichts (s. Bild 9). Das Feld zur Anzeige des übertrags heißt txtUebertrag<\/b> und ist ungebunden.<\/p>\n Bild 9: Der Seitenkopf in der Entwurfsansicht<\/span><\/b><\/p>\n Damit es immer den Wert anzeigt, den das Feld txtZwischensumme<\/b> auf der vorherigen Seite hatte, setzen Sie eine Ereigniseigenschaft ein, die direkt nach der Ermittlung der Zwischensumme ausgelöst wird und das Feld txtUebertrag<\/b> mit dem aktuellen Wert des Feldes txtZwischensumme<\/b> füllt. Die entsprechende Routine sieht folgendermaßen aus:<\/p>\n Wenn Sie den Rechnungsbericht, dessen Entwurf Sie in Bild 10 im überblick sehen, nun öffnen, werden Sie noch kleinere Schönheitsfehler entdecken.<\/p>\n Bild 10: Entwurf des Rechnungsberichts im überblick<\/span><\/b><\/p>\n Es beginnt nicht jede Rechnung auf einer neuen Seite, der Seitenkopfbereich erscheint auch auf der ersten Seite einer Bestellung mit dem Gruppenkopf und der Seitenfuß erscheint auch auf der letzten Seite, wo er eigentlich nicht sichtbar sein sollte. Außerdem werden manche Bereiche mit einem grauen Hintergrund ausgestattet (s. Bild 11). Diese Ungereimtheiten räumen Sie jetzt nacheinander aus.<\/p>\n Bild 11: Der Rechnungsbericht sieht noch nicht perfekt aus.<\/span><\/b><\/p>\n Die grauen Bereiche erklären sich durch die Eigenschaft Alternative Hintergrundfarbe <\/b>von Bereichen, die sich wiederholen können – also Gruppenkopf, Gruppenfuß und Detailbereich. Der übersicht halber sollen diese standardmäßig mit wechselnder Hintergrundfarbe hinterlegt werden. In unserem Fall ist das eher hinderlich, also stellen wir diese Eigenschaft für alle betroffenen Bereiche auf den gleichen Farbwert ein, den wir auch in der Eigenschaft Hintergrundfarbe <\/b>vorfinden – unter neueren Access-Versionen etwa Hintergrund 1<\/b> statt Hintergrund 1, Dunkler 5% <\/b>(s. Bild 12).<\/p>\n Bild 12: Deaktivieren der alternierenden Hintergrundfarbe<\/span><\/b><\/p>\n In der aktuellen Fassung beginnt nicht jede Rechnung auf einer neuen Seite, die Rechnungen werden einfach nacheinander weggedruckt. Um die Anzeige jeder Rech-nung auf einer neuen Seite zu erreichen, ist nur eine kleine änderung vonnöten: Stellen Sie die Eigenschaft Neue Seite<\/b> des Kopfbereichs der Gruppierung BestellungID<\/b> auf den Wert Vor Bereich<\/b> ein. Dadurch wird vor jedem Gruppenkopf ein Seitenumbruch eingefügt.<\/p>\n Nun wenden Sie sich dem Seitenkopf und dem Seitenfuß zu. Der Seitenkopf erscheint dummerweise auch auf der ersten Seite über dem Briefkopf und der Seitenfuß soll nicht auf Seiten angezeigt werden, die den Gruppenfuß enthalten. Würden Sie hier die weiter oben angesprochene Variante des Rechnungsberichts verwenden, bei der jede Rechnung in einem einzelnen Bericht angezeigt wird und sich der Briefkopf mit den allgemeinen Rechnungsdaten im Berichtskopf statt im hier verwendeten Gruppenkopf befindet, wäre das Problem leicht zu lösen: Sie würden dann einfach die Eigenschaft Seitenkopf<\/b> des Berichts auf den Wert Außer Berichtskopf<\/b> einstellen (s. Bild 13).<\/p>\n Bild 13: Seitenkopf nicht mit dem Berichtskopf auf einer Seite anzeigen<\/span><\/b><\/p>\n Nachdem Sie nun wissen, wie dies normalerweise funktionieren würde, kommen Sie nun zur anspruchsvolleren Variante: Und da ist schon ein wenig Gehirnschmalz notwendig.<\/p>\n Die wichtigste Information, die Sie zum Ein- beziehungsweise Ausblenden von Be-richts-be-reichen haben müssen, ist folgende: Es funktioniert nicht zuverlässig, wenn Sie den Be-reich mit der Visible<\/b>-Eigenschaft sichtbar oder unsichtbar machen.<\/p>\n Auf der sicheren Sei-te sind Sie, wenn Sie die Cancel<\/b>-Eigenschaft der Beim Formatieren<\/b>-Eigenschaft des je-wei-ligen Bereichs auf True <\/b>setzen, um die Anzeige des Bereichs zu unterbinden.<\/p>\n Ob einer der beiden Bereiche Seitenkopf <\/b>oder Seitenfuß<\/b> angezeigt werden soll, entscheidet sich freilich nicht in der jeweiligen Beim Formatieren<\/b>-Eigenschaft, sondern in anderen Ereignisprozeduren.<\/p>\n Nun der Reihe nach: Listing 1 enthält das komplette Klassenmodul des Berichts. Die Ereignisprozeduren sind nach der Reihenfolge ihres Auftretens geordnet, wobei das Beim öffnen<\/b>-Ereignis des Berichts nur einmal ausgelöst wird. Um festzulegen, ob die Anzeige von Seitenfuss oder Seitenkopf unterbunden werden soll, verwenden Sie zwei Boolean<\/b>-Variablen namens bolCancelSeitenfuss <\/b>und bolCancelSeitenkopf<\/b>, die wir im Kopfbereich des Moduls definieren.<\/p>\n Listing 1: Inhalt des Klassenmoduls des Berichts rptRechnungen<\/span><\/b><\/p>\n Beim öffnen des Berichts wird das Ereignis Beim öffnen<\/b> ausgelöst. Die erste Seite des Berichts enthält logischerweise die erste Seite einer Rechnung. Daher wird hier auf jeden Fall der Gruppenkopf der Rechnung angezeigt; der Seitenkopf soll dann nicht erscheinen – die Variable bolCancelSeitenkopf <\/b>wird auf True <\/b>eingestellt:<\/p>\n Vor dem Anzeigen des Gruppenkopfs wird dessen Beim Drucken<\/b>-Ereignis ausgelöst. Hier wird die Variable bolCancelSeitenfuss <\/b>prophylaktisch auf False <\/b>eingestellt:<\/p>\n Das kann sich allerdings schnell ändern, wenn die Gruppierung so wenige Datensätze enthält, dass der Gruppenkopf noch auf der gleichen Seite angezeigt wird. Das dann ausgelöste Ereignis Beim Drucken<\/b> des Gruppenfußes stellt die Variable bolCancelSeitenfuss <\/b>dann auf True <\/b>ein:<\/p>\n Damit steht auch fest, dass auf der nächsten Seite eine neue Rechnung beginnt – der Seitenkopf soll also wieder dem Gruppenkopf weichen: Dazu erhält die Variable bolCancelSeitenkopf <\/b>ebenfalls den Wert True<\/b>:<\/p>\n Geht es dann an das Formatieren des Seitenfußes, prüft das Ereignis Beim Formatieren<\/b> den Wert bolCancelSeitenfuss<\/b> und weist diesen dem Cancel<\/b>-Parameter zu. Ist dieser True<\/b>, wird der Bereich nicht angezeigt.<\/p>\n In dieser Prozedur befindet sich ja auch die Anweisung, die den Wert des Feldes txtUebertrag <\/b>auf den Wert des Feldes txtZwischensumme <\/b>einstellt und die wir bereits weiter oben besprochen haben:<\/p>\n Soll der Bereich doch angezeigt werden, wird nach dem Beim Formatieren<\/b>-Ereignis auch noch das Beim Drucken<\/b>-Ereignis ausgelöst. In diesem stellen Sie dann direkt die Variable bol-CancelSeitenkopf <\/b>auf den Wert False <\/b>ein, denn wenn noch nicht die letzte Seite der Rech-nung erreicht ist, soll auf der Folgeseite auf jeden Fall der Seitenkopf angezeigt werden:<\/p>\n Schließlich kommen wir noch zum Ereignis Beim Formatieren <\/b>des Seitenkopfes. Dieser soll ja nur eingeblendet werden, wenn es sich um eine Folgeseite handelt – also wenn bolCancelSeitenkopf <\/b>gleich False <\/b>ist. Anderenfalls wirkt sich die Einstellung von Cancel<\/b> auf <\/b>bolCancelSeitenkopf so aus, dass die Anzeige des Seitenkopfes unterbunden wird:<\/p>\n Es ist etwas Aufwand, aber auf diese Weise zeigt der Bericht jede Rechnung auf einer einzelnen Seite an (s. Bild 14).<\/p>\n Bild 14: Jede Rechnung auf einer eigenen Seite anzeigen<\/span><\/b><\/p>\n Nun fehlt allerdings noch die Feuerprobe, denn das Beispiel aus dem vorherigen Screenshot zeigt ja nur eine einfache Rechnung, die auf eine Seite passt. Was geschieht, wenn wir eine Bestellung zusammenstellen, deren Positionen auf der Rechnung gerade eben auf die erste Seite passen – an welcher Stelle wird dann der Bericht umgebrochen<\/p>\n Dazu fügen wir zu einer Bestellung in der Tabelle tblBestellpositionen <\/b>einige Einträge hinzu und schauen zwischendurch immer mal wieder, was geschieht. Leider kann man den geöffneten Bericht nicht aktualisieren, aber Sie bekommen das Wechseln in eine andere Ansicht und zurück schnell mit der Tastenkombination Strg + Komma<\/b>, Strg + Punkt <\/b>hin.<\/p>\n Wenn wir also nun genügend Rechnungspositionen angelegt haben, um so einen Seitenumbruch zu erhalten, zeigt sich die Ansicht aus Bild 15. Das ist nicht das erhoffte Ergebnis, denn die Berichtssummen sollen nicht allein auf der letzten Seite der Rechnung stehen.<\/p>\n Bild 15: Der Seitenumbruch erfolgt nicht an der erhofften Stelle, sondern genau nach der letzten Bestellposition.<\/span><\/b><\/p>\n Zumindest ein Datensatz der Tabelle tblBestellpositionen <\/b>sollte noch auf diese Seite rutschen, allein damit die Spaltenüberschriften nicht so allein dastehen. Zum Glück haben wir in diesem Bericht eine feste Höhe für jeden Detailbereich, sodass wir zählen können, wieviele Datensätze auf die erste Seite passen. Sobald die entsprechende Anzahl erreicht ist, wollen wir dann zur neuen Seite wechseln.<\/p>\n Aber wie soll das funktionieren Ganz einfach: Wir fügen unten im Detailbereich ein Steuerelement des Typs Seitenumbruch <\/b>ein und nennen es ctlSeitenumbruch<\/b>.<\/p>\n Dann legen wir für das Ereignis Beim Formatieren<\/b> des Detailbereichs die folgende Prozedur an:<\/p>\n Wir haben direkt auch noch experimentell ermittelt, dass auch beim 66. und beim 109. Datensatz ein Seitenumbruch eingefügt werden soll, wenn die Rechnung so viele Datensätze enthalten sollte.<\/p>\n Dies funktioniert nun – der letzte Datensatz rutscht mit auf die nächste Seite. Allerdings haben wir nun immer einen unschönen Leerraum unten auf der ersten Seite zwischen dem letzten Datensatz der Seite und dem Seitenfuß (s. Bild 16). Leider schließt sich der Seitenfuß nicht immer direkt an den letzten Datensatz an, wie es beim Berichtsfuß der Fall ist. Aber auch dafür wird sich eine Lösung finden.<\/p>\n Bild 16: Nun gelangt der letzte Artikel auf die Seite mit der Rechnungssumme.<\/span><\/b><\/p>\n Welche Möglichkeit haben wir also, um den Seitenfußbereich etwas näher an den letzten Datensatz auf der Seite heranzubekommen<\/p>\n Mit ein wenig Experimentierfreude gelingt auch das. Es stellt sich heraus, dass man den Seitenfuß-Inhalt durchaus nach oben verschieben kann, wenn man die Höhe des Seitenfußes vergrößert. Dies erledigen wir ebenfalls in der Ereignisprozedur Detailbereich_Format<\/b>, und zwar, indem wir den Wert der Height<\/b>-Eigenschaft für diesen Bereich auf 3000 <\/b>einstellen:<\/p>\n Das Ergebnis aus Bild 17 sieht überzeugend aus. Allerdings lässt sich diese Lücke nicht wieder verkleinern. Wenn Sie nun eine Rechnung ausgeben, die mehr als zwei Seiten füllt, erhalten Sie unten den gleichen Abstand wie zuvor – allerdings wird der Seitenfuß gleichzeitig wieder ganz unten gedruckt.<\/p>\nMehrwertsteuersätze<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_002.png\")
<\/p>\nBerechnete Felder<\/h2>\n
\n
Konzept für die Erstellung des Berichts<\/h2>\n
Briefkopf im Berichtskopf oder Gruppenkopf<\/h2>\n
![\"Einrichtung](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_003.png\")
<\/p>\nErstellen des Gruppenkopfs<\/h2>\n
![\"Einrichtung](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_004.png\")
<\/p>\n=[Personal.Anrede] & \" \" & [Personal.Vorname] & \" \" & [Personal.Nachname]<\/pre>\n
Anlegen des Detailbereichs<\/h2>\n
![\"Einrichtung](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_005.png\")
<\/p>\nBerechnungen in Berichten oder Berechnungen in Formularen<\/h2>\n
Summenbildung im Fußbereich der Gruppierung<\/h2>\n
![\"Steuerelemente](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_006.png\")
<\/p>\n![\"Einstellung](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_007.png\")
<\/p>\nFeinheiten: Zwischensumme und übertrag<\/h2>\n
![\"Entwurfsansicht](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_008.png\")
<\/p>\nüberschriften für Folgeseiten und Rechnungsübertrag<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_009.png\")
<\/p>\nPrivate Sub <\/span>Seitenfußbereich_Print(Cancel As Integer<\/span>, _\r\n PrintCount As Integer<\/span>)\r\n Me!txtUebertrag = Me!txtZwischensumme\r\nEnd Sub<\/span><\/pre>\nRechnungsentwurf im Zusammenhang und Restarbeiten<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_011.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_010.png\")
<\/p>\nAus Grau mach Weiß<\/h2>\n
![\"Deaktivieren](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_012.png\")
<\/p>\nBereiche auf neuer Seite anzeigen<\/h2>\n
Seitenkopf und Seitenfuß nur auf bestimmten Seiten anzeigen<\/h2>\n
![\"Seitenkopf](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_013.png\")
<\/p>\nDim <\/span>bolCancelSeitenfuss As Boolean<\/span>\r\nDim <\/span>bolCancelSeitenkopf As Boolean<\/span>\r\nPrivate Sub <\/span>Report_Open(Cancel As Integer<\/span>)\r\n ''''auf erster Seite wird auf jeden Fall der Gruppenkopf sichtbar, \r\n ''''also Seitenkopf ausblenden\r\n bolCancelSeitenkopf = True<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Gruppenkopf0_Print(Cancel As Integer<\/span>, PrintCount As Integer<\/span>)\r\n ''''Seitenfuß soll erstmal nicht ausgeblendet werden...\r\n bolCancelSeitenfuss = False<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Gruppenfuß1_Print(Cancel As Integer<\/span>, PrintCount As Integer<\/span>)\r\n ''''... außer, der Gruppenfuß wird angezeigt. \r\n ''''Dann gibt es keinen Seitenfuß.\r\n bolCancelSeitenfuss = True<\/span>\r\n ''''Und wenn der Gruppenfuß angezeigt wird, erscheint auf der nächsten Seite \r\n ''''eine neue Rechnung, also soll auch der Seitenkopf nicht angezeigt \r\n ''''werden.\r\n bolCancelSeitenkopf = True<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Seitenfußbereich_Format(Cancel As Integer<\/span>, _\r\n FormatCount As Integer<\/span>)\r\n ''''Abbrechen, wenn bolCancelSeitenfuss True<\/span> ist\r\n Cancel = bolCancelSeitenfuss\r\n Me!txtUebertrag = Me!txtZwischensumme\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Seitenfußbereich_Print(Cancel As Integer<\/span>, _\r\n PrintCount As Integer<\/span>)\r\n ''''Wenn Seitenfuß, dann auf jeden Fall Seitenkopf auf nächster Seite\r\n ''''anzeigen\r\n bolCancelSeitenkopf = False<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Seitenkopfbereich_Format(Cancel As Integer<\/span>, _\r\n FormatCount As Integer<\/span>)\r\n ''''Abbrechen, wenn bolCancelSeitenkopf True<\/span> ist\r\n Cancel = bolCancelSeitenkopf\r\nEnd Sub<\/span><\/pre>\nbolCancelSeitenkopf = True<\/span><\/pre>\nbolCancelSeitenfuss = False<\/span> <\/pre>\nbolCancelSeitenfuss = True<\/span><\/pre>\nbolCancelSeitenkopf = True<\/span> <\/pre>\nCancel = bolCancelSeitenfuss<\/pre>\n
Me!txtUebertrag = Me!txtZwischensumme<\/pre>\n
bolCancelSeitenkopf = False<\/span><\/pre>\nCancel = bolCancelSeitenkopf<\/pre>\n
![\"Jede](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_014.png\")
<\/p>\nMehrseitige Rechnungen<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_015.png\")
<\/p>\nPrivate Sub <\/span>Detailbereich_Format(Cancel As Integer<\/span>, _\r\n FormatCount As Integer<\/span>)\r\n Me!ctlSeitenumbruch.Visible = False<\/span>\r\n Select Case Me!txtPosition\r\n Case <\/span>23, 66, 109\r\n Me!ctlSeitenumbruch.Visible = True<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Nun](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_016.png\")
<\/p>\nSeitenfußbereich direkt unter letzter Rechnungsposition<\/h2>\n
Private Sub <\/span>Detailbereich_Format(Cancel As <\/span>_\r\n Integer, FormatCount As Integer<\/span>)\r\n Me!ctlSeitenumbruch.Visible = False<\/span>\r\n Select Case Me!txtPosition\r\n Case <\/span>23, 66, 109\r\n Me!ctlSeitenumbruch.Visible = True<\/span>\r\n Me.Seitenfußbereich.Height = 3000\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2016_05\/pic_1053_017.png\")
<\/p>\n