<\/p>\n
André Minhorst, Duisburg; Manfred Hoffbauer, Düsseldorf<\/b><\/p>\n
In den Tipps und Tricks der vorliegenden Ausgabe finden Sie einige interessante Möglichkeiten, die Ausgabe von Berichten effizienter zu gestalten. Dabei beziehen sich die folgenden Tipps und Tricks zum größten Teil auf die Schritte, die um die eigentliche Berichterstellung herum erfolgen. Nach der Lektüre der kommenden Seiten können Sie Ihre Datenbank zum Beispiel leicht vor Benutzern schützen, die Berichte ohne Daten oder ohne Vorhandensein eines Druckers ausgeben möchten.<\/b><\/p>\n
Was ist schon ein Bericht ohne Daten Das sollten Sie sich überlegen, bevor Sie Ihre Kunden oder Mitarbeiter auf eine von Ihnen entwickelte Datenbank loslassen.<\/p>\n
Um zu verhindern, dass Berichte ohne Daten angezeigt werden, gibt es prinzipiell zwei Möglichkeiten: Entweder Sie überprüfen die Datenherkunft vor dem Aufrufen des Berichts oder Sie verwenden die Ereigniseigenschaft Bei ohne Daten von Berichten.<\/p>\n
Während der Entwicklungsphase einer Datenbank oder bei Datenbanken für interne Zwecke ist das öffnen von Berichten über einen Doppelklick auf den entsprechenden Eintrag im Datenbankfenster gängige Praxis.<\/p>\n
In den meisten Fällen erfordert das öffnen von Berichten aber die übergabe von Parametern wie Filterbedingungen und dergleichen oder die Datenbank soll von Mitarbeitern oder Kunden verwendet werden. Hier erfolgt das öffnen von Berichten in der Regel über entsprechende Prozeduren, die der Benutzer entweder durch das Betätigen von Schaltflächen oder die Verwendung von Menüeinträgen aufruft.<\/p>\n
In diesen Fällen können Sie leicht vor dem eigentlichen öffnen des Berichts dessen Datenherkunft überprüfen.<\/p>\n
Falls die Datenherkunft keine Daten enthält, geben Sie eine entsprechende Meldung aus und unterbinden das öffnen des Berichts.<\/p>\n
Wenn Sie noch einen Schritt weiter gehen möchten, können Sie die Steuerelemente, die dem öffnen des Berichts dienen, erst bei Vorhandensein von Daten aktivieren und ansonsten deaktivieren. Dies zieht aber in der Regel einen unverhältnismäßig hohen Programmieraufwand nach sich. <\/p>\n
Berichte stellen die Ereigniseigenschaft Bei Ohne Daten zur Verfügung, die beim öffnen eines Berichts mit leerer Datenherkunft ausgelöst wird.<\/p>\n
Ein Beispiel für den Aufbau dieser Prozedur finden Sie in Quellcode 1.<\/p>\n
Neben einer entsprechenden Meldung, die den Benutzer auf das Fehlen der Daten hinweist, müssen Sie den Wert des Parameters Cancel auf den Wert True setzen. Nur dann wird das öffnen des Berichts abgebrochen.<\/p>\n
Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"Der Bericht enthält keine Daten.\"\r\n Cancel = True\r\nEnd Sub<\/pre>\nQuellcode 1<\/b><\/p>\n
Private Sub cmdBerichtDrucken_Click()\r\n On Error GoTo cmdBerichtDrucken_Click_Err\r\n DoCmd.OpenReport \"<Berichtsname>\"\r\n Exit Sub\r\ncmdBerichtDrucken_Click_Err:\r\n If Err.Number = 2501 Then\r\n Resume Next\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 2<\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 1: Standarddrucker in der Registry<\/span><\/b><\/p>\n
Wenn Sie den Bericht per Code und nicht über das Datenbankfenster aufgerufen haben, löst das Abbrechen des öffnen-Vorgangs einen Fehler aus. Diesen sollten Sie in der Prozedur mit der Anweisung zum öffnen des Berichts berücksichtigen und eine Fehlerbehandlung wie in Quellcode 2 verwenden.<\/p>\n
Bevor ein Bericht überhaupt in der Vorschau angezeigt geschweige denn ausgedruckt werden kann, muss auf dem aktuellen Rechner zunächst einmal ein Drucker installiert und als Standarddrucker definiert sein.<\/p>\n
Wenn Sie versuchen, einen Bericht ohne installierten Standarddrucker auszugeben, erhalten Sie eine entsprechende Fehlermeldung.<\/p>\n
Bei der Ermittlung des Standarddruckers hilft Ihnen die API-Funktion GetProfileString. Die Funktion dient dem Auslesen bestimmter Werte aus der Windows-Registry (siehe Bild 1) bzw. in früheren Windows-Versionen aus der Datei Win.ini.<\/p>\n
Diese Funktion (s. Quellcode 3) deklarieren Sie im Kopf eines neuen VBA-Moduls. Die Funktion StandarddruckerErmitteln ruft die API-Funktion auf und übergibt beim Aufruf automatisch die für die Ermittlung des Standarddruckers erforderlichen Parameter (s. Quellcode 4).<\/p>\n
Außerdem verarbeitet sie das Ergebnis der Funktion direkt mit der Funktion TeilstringErmitteln (s. Quellcode 5) weiter, die den ersten der Einträge des Ergebnisses ausliest.<\/p>\n
Zeichenketten trennen per Funktion<\/h3>\n
Die Funktion TeilstringErmitteln hat drei Parameter: Gesamtstring, Trennzeichen und Teilstringnummer. Mit dem ersten Parameter übergeben Sie der Funktion die auszuwertende Zeichenkette.<\/p>\n
Der zweite Parameter enthält das Zeichen, das in der Zeichenkette als Trennzeichen verwendet wird – also beispielsweise Komma, Semikolon und so weiter. Der dritte Parameter enthält die Nummer des Elements der Liste, das die Funktion zurückgeben soll.<\/p>\n
Private Declare Function GetProfileString Lib \"kernel32\" Alias \"GetProfileStringA\" _\r\n (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As _ String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long<\/pre>\nQuellcode 3<\/b><\/p>\n
Public Function StandarddruckerErmitteln() As String\r\n Dim Rueckgabewert As String\r\n Dim Funktionsergebnis As Long\r\n Rueckgabewert = String(255, Chr(0))\r\n Funktionsergebnis = GetProfileString(\"Windows\", \"Device\", \"\", Rueckgabewert, _ Len(Rueckgabewert))\r\n If Funktionsergebnis > 0 Then\r\n GetDefaultPrinter = TeilstringErmitteln(Rueckgabewert, \",\", 1)\r\n Else\r\n GetDefaultPrinter = \"\"\r\n End If\r\nEnd Function<\/pre>\nQuellcode 4<\/b><\/p>\n
Private Function TeilstringErmitteln(Gesamtstring As String, Trennzeichen As String, _ Teilstringnummer As Integer) As String\r\n Dim Startposition As Integer\r\n Dim Endposition As Integer\r\n Dim AktuelleStringnummer As Integer\r\n Dim AktuellesZeichen As Integer\r\n AktuellesZeichen = 1\r\n Startposition = 0\r\n For AktuelleTeilstringnummer = 1 To Teilstringnummer - 1\r\n AktuellesZeichen = InStr(AktuellesZeichen, Gesamtstring, Trennzeichen)\r\n If AktuellesZeichen = 0 Then\r\n Teilstring = \"\"\r\n Exit Function\r\n Else\r\n AktuellesZeichen = AktuellesZeichen + 1\r\n End If\r\n Next AktuelleTeilstringnummer\r\n Startposition = AktuellesZeichen\r\n Endposition = InStr(Startposition + 1, Gesamtstring, Trennzeichen)\r\n If Endposition = 0 Then\r\n Endposition = Len(Gesamtstring) + 1\r\n End If\r\n Teilstring = Mid$(Gesamtstring, Startposition, Endposition - Startposition)\r\nEnd Function<\/pre>\nQuellcode 5<\/b><\/p>\n
Im vorliegenden Fall übergibt die Funktion StandarddruckerErmitteln der Funktion TeilstringErmitteln die Zeichenkette Acrobat PDFWriter,winspool,LPT1:, als Trennzeichen das Komma und als Nummer des zurückzugebenden Elements die 1.<\/p>\n
Die Funktion TeilstringErmitteln gibt folgerichtig die Zeichenkette Acrobat PDFWriter zurück.<\/p>\n
Praxis-Tipp<\/h3>\n
Falls Sie nicht bereits über eine Funktion zum Zerlegen von Zeichenketten verfügen, sollten Sie die Funktion TeilstringErmitteln kopieren und Ihrer Funktionssammlung hinzufügen. Sie kann in vielen weiteren Fällen verwendet werden. <\/p>\n
Private Sub cmdBerichtDrucken_Click()\r\n If StandarddruckerErmitteln = \"\" Then\r\n MsgBox \"Bitte legen Sie einen Standarddrucker fest bzw. installieren Sie \" _ & \"einen Drucker, falls keiner installiert ist.\", _ vbOKOnly + vbExclamation, \"Kein Standarddrucker definiert\"\r\n Else\r\n DoCmd.OpenReport \"<Berichtsname>\"\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 6<\/b><\/p>\n
Zur sinnvollen Anwendung der Funktionen müssen Sie diese vor dem Anzeigen von Berichten aufrufen und überprüfen, ob ein Standarddrucker festgelegt ist.<\/p>\n
Ist das nicht der Fall, geben Sie einfach eine entsprechende Meldung aus, damit der Benutzer die notwendigen Schritte einleiten kann. Eine entsprechende Prozedur können Sie Quellcode 6 entnehmen.<\/p>\n
<\/p>\n
Die Prozedur wird durch das Betätigen einer Schaltfläche namens cmdBerichtDrucken gestartet und sie überprüft, ob die Funktion StandarddruckerErmitteln einen Wert zurückgibt.<\/p>\n
Falls sie eine leere Zeichenkette zurückgibt, erscheint eine entsprechende Meldung. In allen anderen Fällen wird der Bericht auf dem Standarddrucker ausgedruckt.<\/p>\n
Die meisten Access-Anwendungen stellen je eine Schaltfläche für die Anzeige der Vorschau und für das Ausdrucken eines Berichts zur Verfügung.<\/p>\n
Die durch die Schaltflächen ausgelösten Anweisungen unterscheiden sich nur in dem Parameter View, der einmal acViewPreview und einmal acViewNormal heißt.<\/p>\n
Diese Vorgehensweise hat zwei Nachteile: Erstens wird das Dokument immer automatisch auf dem Standarddrucker ausgegeben und zweitens ist diese Methode wenig Windows-konform und damit gewöhnungsbedürftig.<\/p>\n
Als Alternative bietet sich folgende Variante an: Stellen Sie dem Benutzer für jeden Bericht Schaltflächen beziehungsweise Menüleisteneinträge zur Verfügung, die der Anzeige des Berichts in der Vorschau dienen.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 2: Drucken-Schaltfläche der Symbolleiste von Berichten<\/span><\/b><\/p>\n
Das Ausdrucken erfolgt zentral über die Menü- bzw. Symbolleiste. Beim öffnen eines Berichts sind sowohl im Menü Datei als auch auf der entsprechenden Symbolleiste (siehe Bild 2) Schaltflächen zum Drucken des aktuell angezeigten Objekts vorhanden.<\/p>\n
Und auch in benutzerdefinierten Menüs können Sie leicht entsprechende Einträge unterbringen, wie Bild 3 zeigt.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 3: Drucken-Schaltfläche in einer benutzerdefinierten Menüleiste<\/span><\/b><\/p>\n
Private Sub Report_Activate()\r\n MenuepunktAktivieren Application.CommandBars(\"Buchhaltung\"). _ Controls(\"&Datei\").Controls(\"D&rucken\")\r\nEnd Sub\r\nPrivate Sub Report_Deactivate()\r\n MenuepunktDeaktivieren Application.CommandBars(\"Buchhaltung\"). _ Controls(\"&Datei\").Controls(\"D&rucken\")\r\nEnd Sub<\/pre>\nQuellcode 7<\/b><\/p>\n
Wenn Sie eine selbst erstellte Schaltfläche auf einem Formular oder in einer benutzerdefinierten Menüleiste zum Ausdrucken von Berichten verwenden möchten, steht die folgende Aufgabe vor Ihnen: Die Schaltfläche soll beim Anzeigen eines Berichtes aktiviert und beim Schließen des Berichtes wieder deaktiviert werden. Optimalerweise wird die Drucken-Schaltfläche auch bereits wieder deaktiviert, wenn aktuell kein Bericht den Focus hat.<\/p>\n
Um das zu realisieren, verwenden Sie die beiden Ereigniseigenschaften Bei Aktivierung und Bei Deaktivierung des Berichtes. Das Aktivieren und Deaktivieren von Schaltflächen ist relativ trivial. Komplizierter wird es bei Einträgen in Menü- und Symbolleisten.<\/p>\n
Dazu können Sie die im Beitrag Dynamische Menüs mit VBA aus Ausgabe 4\/2003 von Access im Unternehmen vorgestellten Funktionen MenuepunktAktivieren und MenuepunktDeaktivieren verwenden.<\/p>\n
Für die im Beitrag Einnahme-überschussrechnung mit Access der vorliegenden Ausgabe werden beispielsweise die beiden Prozeduren aus Quellcode 7 verwendet.<\/p>\n
Sie können diese Vorgehensweise auch verwenden, wenn Sie mehrere Berichte gleichzeitig geöffnet haben. Dazu müssen Sie die beiden Ereignisprozeduren lediglich für jeden Bericht anlegen.<\/p>\n
Wenn Sie dann von einem zum anderen Bericht wechseln, wird zunächst das Ereignis Bei Deaktivierung des ersten Berichts und dann das Ereignis Bei Aktivierung des zweiten Berichts ausgelöst. Auf diese Weise ist die Drucken-Schaltfläche immer aktiviert.<\/p>\n
Berichte mit vertikalen Linien stellen im Prinzip kein Problem dar. Sie legen die Linie an, überprüfen das Aussehen des Berichts in der Vorschauansicht und passen gegebenenfalls noch einige Feinheiten an. Aber wehe, Sie wollen eine oder mehrere Felder des Berichts flexibel gestalten und setzen dazu die Eigenschaft Vergrößerbar des jeweiligen Feldes auf den Wert Ja. Dann zeigt der Bericht zwar den Feldinhalt über mehrere Zeilen an, aber die Linie wird nicht mit vergrößert.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 4: Zur kurze Linien in vergrößerbaren Bereichen<\/span><\/b><\/p>\n
Damit die Linien sich an die vergrößerte Zeilenhöhe anpassen, ist zwangsläufig der Einsatz von VBA erforderlich.<\/p>\n
Dazu erstellen Sie eine Funktion, der Sie den Namen des Zielbereichs wie zum Beispiel Detailbereich und die waagerechte Koordinate übergeben. Die Funktion wird dann von dem Ereignis Beim Drucken des jeweiligen Bereichs aufgerufen.<\/p>\n
Eigenschaften von Linien<\/h3>\n
Zur Erstellung einer Linie in einem Bereich eines Berichtes verwenden Sie die Line-Methode. Die Methode erwartet als Parameter die Koordinaten sowie die Farbe der zu erstellenden Linie. Da Berichte in der Regel geschäftliche Dokumente und damit entsprechend seriös gestaltet werden, verwendet die nachfolgend vorgestellte Funktion die Farbe Schwarz als Linienfarbe.<\/p>\n
Hinweis<\/h3>\n
Detaillierte Informationen zur Line-Methode und zu den anderen hier verwendeten VBA-Eigenschaften ScaleMode und DrawWidth erhalten Sie auf den entsprechenden Seiten der Online-Hilfe von Access. <\/p>\n
Vergrößerbare Bereiche und Steuerelemente<\/h3>\n
Voraussetzung für die Anwendung dynamischer Linien ist, dass auch die entsprechenden Berichte bzw. Steuerelemente ihre Größe automatisch an den Inhalt anpassen. Dazu stellen Sie die Eigenschaft Vergrößerbar sowohl für den Detailbereich als auch für das gewünschte Steuerelement auf den Wert Ja ein.<\/p>\n
Beispiel: Die Einnahmen-überschussrechnung<\/h3>\n
Als Beispiel dient ein Bericht der im Beitrag Einahmen-überschussrechnung mit Access in der vorliegenden Ausgabe von Access im Unternehmen vorgestellten Musterlösung.<\/p>\n
Wie Bild 4 zeigt, sind die Linien, die im oberen Bereich die richtige Höhe haben, im unteren, vergrößerten Bereich zu kurz.<\/p>\n
Um die Linien dynamisch zu gestalten, gehen Sie folgendermaßen vor:<\/p>\n
Legen Sie in einem neuen Modul, das Sie beispielsweise mdlBerichte nennen, die Funktion aus Quellcode 8 an.<\/li>\n Legen Sie für die Ereigniseigenschaft des Detailbereichs des Berichtes die Prozedur aus Quellcode 9 an.<\/li>\n Passen Sie die Zentimeterangaben in den Funktionsaufrufen entsprechend den Positionen der zu erstellenden Linien an. (<\/li>\n Die Funktion LinieErstellen (s. Quellcode 8) hat zwei Parameter: die x-Position der Linie und den Berichtsnamen. Der Berichtsname wird benötigt, damit die Funktion die Linien im richtigen Bericht unterbringt. Die x-Koordinate ist variabel, damit mit mehreren Funktionsaufrufen verschiedene Linien erstellt werden können. Die Eigenschaft ScaleMode des Berichts gibt an, welche Einheit für Längenangaben innerhalb der Line-Funktion verwendet wird. Der Wert 7 entspricht der Verwendung von Zentimetern. Die Eigenschaft DrawWidth gibt die Breite der zu erstellenden Linien in Pixeln an.<\/p>\n
Public Function LinieErstellen(X1 As Single, _ Berichtname As String)\r\n Dim Bericht As Report\r\n Set Bericht = Reports(Berichtname)\r\n Bericht.ScaleMode = 7\r\n Bericht.DrawWidth = 1\r\n Bericht.Line (X1, 0)-(X1, 55.87), 0\r\nEnd Function<\/pre>\nQuellcode 8<\/b><\/p>\n
Private Sub Detailbereich_Print(Cancel As Integer, _ PrintCount As Integer)\r\n LinieErstellen 0, Me.Name\r\n LinieErstellen 1.19, Me.Name\r\n LinieErstellen 22.487, Me.Name\r\n ''weitere Funktionsaufrufe\r\nEnd Sub<\/pre>\nQuellcode 9<\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 5: Bericht mit passenden senkrechten Linien<\/span><\/b><\/p>\n
Die Prozedur, die durch die Beim Drucken-Ereigniseigenschaft des Detailbereichs ausgelöst wird, beinhaltet lediglich die unterschiedlichen Aufrufe der Funktion LinieErstellen mit den entsprechenden Parametern.<\/p>\n
Der erste Aufruf der Funktion LinieErstellen mit dem x-Wert 0 und dem Wert Me.Name dient beispielsweise der Erstellung einer Linie, die ganz links im Detailbereich liegt und die ganze Höhe abdeckt.<\/p>\n
Praxis-Tipp<\/h3>\n
Natürlich erfordert der Einsatz dieser Methode einigen Aufwand bei der Erstellung der einzelnen Funktionsaufrufe. Sie können sich die Arbeit erleichtern, wenn Sie die Linien zunächst einmal wie gewünscht im Detailbereich platzieren. Die x-Koordinate finden Sie in den Eigenschaften der jeweiligen Linie unter dem Eigenschaftsnamen Links. <\/p>\n
Wenn Sie die Ereignisprozedur mit den gewünschten Aufrufen sowie die Funktion LinieErstellen angelegt haben, sollten die Linien beim nächsten Aufruf des Berichts wie in Bild 5 aussehen.<\/p>\n
Hinweis<\/h3>\n
Da die Linien komplett per VBA erstellt werden, sind eventuell bereits vorhandene Linien überflüssig und können entfernt werden. Die beschriebene Vorgehensweise ist selbstverständlich nicht auf den Detailbereich beschränkt, sondern kann auch in allen anderen Bereichen des Berichts verwendet werden. <\/p>\n
[www.microsoft.com, Knowledgebase-Artikel 170838]<\/b><\/p>\n
Bei einem Ausdruck der Artikel aus der Nordwind-Datenbank passen die Artikel von Alice Mutton bis Konbu auf die erste Seite. So ist es auf jeden Fall, wenn Sie den Bericht repArtikelliste aus der Beispieldatenbank verwenden. Dieser Bericht enthält zusätzlich zu den Textfeldern zur Anzeige der Artikeldaten eine Besonderheit: In der Kopfzeile sehen Sie die ersten drei Buchstaben des jeweils ersten und letzten Artikels der Druckseite.<\/p>\n
Ein Array füllen<\/h2>\n
Bei einer solchen Anordnung zeigt sich ein grundsätzliches Problem:<\/p>\n
Wie kann Access beim Ausdruck der Kopfzeile, also vor dem Ausdruck des ersten Artikels, schon wissen, wie der Name des letzten Artikels auf der Seite lautet Kann es nicht. Um den gewünschten Effekt dennoch zu erreichen, können Sie sich folgende Eigenart zu Nutze machen:<\/p>\n
Access durchläuft die Ereigniseigenschaften beim Formatieren eines Berichts mehrfach.<\/p>\n
So lässt sich beim ersten Durchlauf des Ereignisses Beim Formatieren des Berichtsfuß- und des Seitenfußbereichs ein Array mit den Artikelnamen füllen. Das Array enthält jeweils den letzten Artikelnamen pro Druckseite.<\/p>\n
Beim zweiten Durchlauf der Ereignisse und diesmal speziell des Ereignisses Beim Formatieren des Seitenkopfbereichs können Sie den Inhalt des Arrays einem Textfeld zuweisen.<\/p>\n
In welchem Durchlauf sich Access gerade befindet, speichert der Bericht in der Boolean-Variablen ArrayFüllen. Um die Variable zu initialisieren, wird die Ereigniseigenschaft Beim öffnen des Berichts wie folgt ausgestattet:<\/p>\n
Private Sub Report_Open(Cancel As _ Integer)<\/p>\n
ArrayFüllen = True<\/p>\n
End Sub<\/p>\n
Damit weiß der folgende Programmcode, dass sich der Bericht im ersten Durchlauf befindet und das Array gefüllt werden muss. Die hier fehlende Deklaration für die Variable ArrayFüllen sowie das Array aryABCBis findet im Kopf des Moduls statt, um die Variablen für das ganze Modul bereitzustellen:<\/p>\n
Dim ArrayFüllen As Boolean<\/p>\n
Dim aryABCBis() As String<\/p>\n
Schön der Reihe nach<\/h2>\n
Der Bericht repArtikelliste enthält Ereignisprozeduren für folgende Ereignisse:<\/p>\n
Bericht – Beim öffnen<\/li>\n Seitenkopf – Beim Formatieren<\/li>\n Berichtsfuß – Beim Formatieren<\/li>\n Seitenfuß – Beim Formatieren<\/li>\n Beim öffnen des Berichts zur Seitenansicht oder zum Ausdruck löst Access immer zuerst das Beim öffnen-Ereignis aus. Darauf folgen das Seitenkopf- und das Seitenfuß-Ereignis und zwar gleich mehrmals – für jede Seite einmal. Zum Schluss könnte man denken, müsste das Berichtsfuß-Ereignis ausgeführt werden. Aber da auch die letzte Seite einen Seitenkopf und einen Seitenfuß hat, werden diese Ereignisse noch nach dem Berichtsfuß-Ereignis ausgelöst.<\/p>\n
Für die geforderte Anwendung ist aber eben eine feste Reihenfolge erforderlich, die sich mit der Variablen ArrayFüllen erreichen lässt.<\/p>\n
Praxis-Tipp<\/h3>\n
Sie können die Ausführungsreihenfolge der verschiedenen Berichtsereignisse ganz leicht nachvollziehen. Fügen Sie in jeder Ereignisprozedur als erste Zeile eine MsgBox-Anweisung mit dem Namen der Prozedur ein (zum Beispiel MsgBox(„Seitenfußbereich_Format“). Beim öffnen des Berichts zeigt Access die Meldungen dann in der Reihenfolge an, wie die Berichtsereignisse ausgelöst werden. <\/p>\n
Ein Fuß pro Seite …<\/h2>\n
Am Ende jeder Seite löst Access das Beim Formatieren-Ereignis des Seitenfußbereichs aus (s. Quellcode 10). Zu diesem Zeitpunkt ist der letzte Artikel gerade formatiert worden und das Programm braucht sich nur den Namen in einem Array zu merken. <\/p>\n
Die Page-Eigenschaft liefert die aktuelle Druckseite des Berichts. Die ReDim-Anweisung dimensioniert das Array aryABCBis auf die aktuelle Seitenzahl, die ja gleichzeitig der zu diesem Zeitpunkt maximalen Anzahl Seiten entspricht.<\/p>\n
Da Access das Ereignis pro Seite einmal auslöst, hat das Array am Ende genauso viele Dimensionen wie der Bericht Seiten.<\/p>\n
Private Sub Seitenfußbereich_Format(Cancel As Integer, _ FormatCount As Integer)\r\n If ArrayFüllen Then\r\n ReDim Preserve aryABCBis(Page)\r\n aryABCBis(Page) = Me!Artikelname\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 10<\/b><\/p>\n
Private Sub Seitenkopfbereich_Format(Cancel As _ Integer, FormatCount As Integer)\r\n If Not ArrayFüllen Then\r\n Me!txtBisABC = Left(Artikelname, 3) & \" - \" _ & Left(aryABCBis(Page), 3)\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 11<\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 6: Die Artikelliste in der Vorschauansicht<\/span><\/b><\/p>\n
Das Arrayelement aryABCBis(Page) erhält den Wert des Feldes Me!Artikelname.<\/p>\n
Dies entspricht dem zuletzt auf der Seite gedruckten Artikelnamen, also genau dem Wert, der später in der Kopfzeile gedruckt werden soll.<\/p>\n
… und pro Bericht<\/h2>\n
Falls Sie den Ausdruck des Seitenfußes auf der letzten Berichtsseite zu einem späteren Zeitpunkt einmal ausschalten wollen, dann sollte der Bericht weiterhin richtig funktionieren.<\/p>\n
Aus diesem Grund verwenden Sie den identischen Programmcode wie in der Prozedur aus Quellcode 10 für das Ereignis Beim Formatieren des Berichtsfußbereichs.<\/p>\n
Der Berichtsfuß enthält außerdem folgende wichtige Anweisung:<\/p>\n
ArrayFüllen = False<\/pre>\nMit dem Ausdruck des Berichtsfußes ist der erste Formatierungslauf beendet und das Füllen des Arrays ist abgeschlossen.<\/p>\n
Damit das Array beim nächsten Durchlauf nicht noch weiter gefüllt wird, erhält die Variable ArrayFüllen den Wert False.<\/p>\n
Seitenkopfbereich<\/h2>\n
Im Seitenkopfbereich benötigen Sie ein Textfeld mit dem Namen txtABCBis. Dieses Textfeld wird über den Programmcode aus Quellcode 11 gefüllt.<\/p>\n
Wenn also das Füllen des Arrays abgeschlossen ist, dann erhält das Textfeld die ersten drei Buchstaben des ersten Artikelnamens dieser Seite, einen Bindestrich und die ersten drei Buchstaben des letzten Artikelnamens dieser Seite (siehe Bild 6).<\/p>\n","protected":false},"excerpt":{"rendered":"
In der vorliegenden Zusammenstellung von Tipps und Tricks finden Sie einige interessante Möglichkeiten, die Ausgabe von Berichten effizienter zu gestalten. Dabei beziehen sich die folgenden Tipps und Tricks zum größten Teil auf die Schritte, die um die eigentliche Berichterstellung herum erfolgen. Nach der Lektüre der kommenden Seiten können Sie Ihre Datenbank zum Beispiel leicht vor Benutzern schützen, die Berichte ohne Daten oder ohne Vorhandensein eines Druckers ausgeben möchten. Im Einzelnen finden Sie die folgenden Tipps und Tricks:
\n– Vorhandensein von Daten überprüfen
\n– Vorhandensein eines Standarddruckers überprüfen
\n– Drucker komfortabel auswählen
\n– Benutzerdefinierte Drucken-Schaltfläche steuern
\n– Größe von vertikalen Linien anpassen
\n– Ali-Kon<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66052003,44000024,44000004],"tags":[],"class_list":["post-55000126","post","type-post","status-publish","format-standard","hentry","category-662003","category-66052003","category-Berichte_und_Reporting","category-Tipps_und_Tricks"],"yoast_head":"\nTipps und Tricks zu Berichten - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Tipps und Tricks zu Berichten\" \/>\n<meta property=\"og:description\" content=\"In der vorliegenden Zusammenstellung von Tipps und Tricks finden Sie einige interessante Möglichkeiten, die Ausgabe von Berichten effizienter zu gestalten. Dabei beziehen sich die folgenden Tipps und Tricks zum größten Teil auf die Schritte, die um die eigentliche Berichterstellung herum erfolgen. Nach der Lektüre der kommenden Seiten können Sie Ihre Datenbank zum Beispiel leicht vor Benutzern schützen, die Berichte ohne Daten oder ohne Vorhandensein eines Druckers ausgeben möchten. Im Einzelnen finden Sie die folgenden Tipps und Tricks: - Vorhandensein von Daten überprüfen - Vorhandensein eines Standarddruckers überprüfen - Drucker komfortabel auswählen - Benutzerdefinierte Drucken-Schaltfläche steuern - Größe von vertikalen Linien anpassen - Ali-Kon\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:17:32+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg09.met.vgwort.de\/na\/ae4b9dd054dc42668d258408602018fb\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"16\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Tipps und Tricks zu Berichten\",\"datePublished\":\"2020-05-06T15:17:32+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/\"},\"wordCount\":2882,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/ae4b9dd054dc42668d258408602018fb\",\"articleSection\":[\"2003\",\"5\\\/2003\",\"Berichte und Reporting\",\"Tipps und Tricks\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/\",\"name\":\"Tipps und Tricks zu Berichten - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/ae4b9dd054dc42668d258408602018fb\",\"datePublished\":\"2020-05-06T15:17:32+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/ae4b9dd054dc42668d258408602018fb\",\"contentUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/ae4b9dd054dc42668d258408602018fb\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_zu_Berichten\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Tipps und Tricks zu Berichten\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Tipps und Tricks zu Berichten - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/","og_locale":"de_DE","og_type":"article","og_title":"Tipps und Tricks zu Berichten","og_description":"In der vorliegenden Zusammenstellung von Tipps und Tricks finden Sie einige interessante Möglichkeiten, die Ausgabe von Berichten effizienter zu gestalten. Dabei beziehen sich die folgenden Tipps und Tricks zum größten Teil auf die Schritte, die um die eigentliche Berichterstellung herum erfolgen. Nach der Lektüre der kommenden Seiten können Sie Ihre Datenbank zum Beispiel leicht vor Benutzern schützen, die Berichte ohne Daten oder ohne Vorhandensein eines Druckers ausgeben möchten. Im Einzelnen finden Sie die folgenden Tipps und Tricks: - Vorhandensein von Daten überprüfen - Vorhandensein eines Standarddruckers überprüfen - Drucker komfortabel auswählen - Benutzerdefinierte Drucken-Schaltfläche steuern - Größe von vertikalen Linien anpassen - Ali-Kon","og_url":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:17:32+00:00","og_image":[{"url":"http:\/\/vg09.met.vgwort.de\/na\/ae4b9dd054dc42668d258408602018fb","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"16\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Tipps und Tricks zu Berichten","datePublished":"2020-05-06T15:17:32+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/"},"wordCount":2882,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/ae4b9dd054dc42668d258408602018fb","articleSection":["2003","5\/2003","Berichte und Reporting","Tipps und Tricks"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/","url":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/","name":"Tipps und Tricks zu Berichten - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/ae4b9dd054dc42668d258408602018fb","datePublished":"2020-05-06T15:17:32+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#primaryimage","url":"http:\/\/vg09.met.vgwort.de\/na\/ae4b9dd054dc42668d258408602018fb","contentUrl":"http:\/\/vg09.met.vgwort.de\/na\/ae4b9dd054dc42668d258408602018fb"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_zu_Berichten\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Tipps und Tricks zu Berichten"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000126","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000126"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000126\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000126"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000126"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000126"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}