{"id":55001516,"date":"2024-10-01T00:00:00","date_gmt":"2024-08-27T09:04:47","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1516"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Seitenraender_in_AccessBerichten","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Seitenraender_in_AccessBerichten\/","title":{"rendered":"Seitenränder in Access-Berichten"},"content":{"rendered":"

\"\"Im Beitrag „Bericht mit unterschiedlichen Seitenrändern“ (www.access-im-unternehmen.de\/1517) haben wir untersucht, wie wir einem Bericht für gerade und ungerade Zahlen unterschiedliche Seitenränder zuweisen können. Das ist zunächst vor allem daran gescheitert, dass die in der Seiteneinrichtung zugewiesenen Seitenränder größer waren als die per VBA eingestellten. Diese konnten wir zwar korrigieren, aber scheinbar willkürlich wurden diese wieder auf Werte eingestellt, die nicht mit unseren Anpassungen harmonierten. Also schauen wir uns im vorliegenden Beitrag einmal an, woher diese Daten überhaupt kommen, wo sie gespeichert werden und wie wir dafür sorgen können, dass sie uns nicht ins Gehege kommen, wenn wir die Seitenränder einmal auf kleinere Werte einstellen, als wir in den Seiteneinstellungen vorfinden.<\/b><\/p>\n

Das Problem in dem oben genannten Beitrag ist, dass wir die Seitenränder für die linke und die rechte Seite abhängig davon, ob es sich um eine gerade oder eine ungerade Seite handelt, einstellen wollen. Für die Seiten 1, 3, 5 und so weiter soll links ein 25 mm-Rand vorliegen und rechts ein 10 mm-Rand. Die Seiten 2, 4, 6 und so weiter wollten wir mit einem linken Rand von 10 mm und einem rechten Rand von 25 mm ausstatten.<\/p>\n

Das klappt auch, aber wir haben zwischenzeitlich einmal im Dialog Seite einrichten <\/b>den linken Rand auf 25 mm und den rechten Rand auf 10 mm eingestellt. Diese Ränder werden von Access immer eingehalten. Auch wenn wir für den Bericht per VBA einen linken Rand von 10 mm einstellen – dann werden die Inhalte zwar um 15 mm nach links verschoben, aber der im Dialog Seite einrichten <\/b>vorgegebene Seitenrand überschreibt diese Inhalte einfach.<\/p>\n

Da sich die Werte in der Seiteneinrichtung scheinbar zufällig ändern, wollen wir dieses Verhalten einmal grundlegend beleuchten.<\/p>\n

Standardwerte für einen neuen Bericht in einer neuen, leeren Datenbank<\/h2>\n

Wenn wir eine neue, leere Datenbank öffnen, finden wir für einen ebenfalls neuen Bericht die Einstellungen aus Bild 1 im Dialog Seite einrichten <\/b>vor. Diese liegen für alle Seitenränder bei 6,35 mm. Diesen Dialog öffnen Sie, indem Sie den Bericht in der Entwurfsansicht öffnen und im Ribbon unter Seite einrichten|Seitenlayout <\/b>den Befehl Seite einrichten <\/b>betätigen.<\/p>\n

\"Standardeinstellung<\/p>\n

Bild 1: Standardeinstellung der Seitenränder<\/span><\/b><\/p>\n

Um zu prüfen, wie diese Werte nun unter VBA erscheinen, hinterlegen wir für das Ereignis Bei Seite<\/b> die folgende Ereignisprozedur:<\/p>\n

Private Sub <\/span>Report_Page()\r\n     Debug.Print<\/span> \"Linker Rand:  \" & Me.Printer.LeftMargin\r\n     Debug.Print<\/span> \"Rechter Rand: \" & Me.Printer.RightMargin\r\n     Debug.Print<\/span> \"Oberer Rand:  \" & Me.Printer.TopMargin\r\n     Debug.Print<\/span> \"Unterer Rand: \" & Me.Printer.BottomMargin\r\nEnd Sub<\/span><\/pre>\n
Nach einem Wechsel in die Seitenansicht erhalten wir im Direktbereich die folgenden Werte:<\/p>\n
Linker Rand:  360\r\nRechter Rand: 360\r\nOberer Rand:  360\r\nUnterer Rand: 360<\/pre>\n
Wir erhalten also erstmal die korrekten Werte, hier in der Einheit Twips. 567 Twips entsprechen einem Zentimeter.<\/p>\n
Nun schauen wir uns an, was geschieht, wenn wir die Seitenränder alle auf 1 cm einstellen (siehe Bild 2).<\/p>\n
\"Manuell<\/p>\n
Bild 2: Manuell geänderte Seitenränder<\/span><\/b><\/p>\n
Wechseln wir wieder in die Seitenansicht, erhalten wir nun die folgende Ausgabe:<\/p>\n
Linker Rand:  567\r\nRechter Rand: 567\r\nOberer Rand:  567\r\nUnterer Rand: 567<\/pre>\n
Wir speichern und schließen den Bericht nun unter dem Namen rpt10mm<\/b>. Nach dem erneuten Öffnen erhalten wir wieder die Seitenränder von 10 mm.<\/p>\n
Einstellungen in einem weiteren neuen, leeren Bericht<\/h2>\n
Wir legen nun einen weiteren neuen, leeren Bericht an und öffnen den Dialog Seite einrichten<\/b>. Hier finden wir nun wieder die Seitenränder von 6,35 mm vor.<\/p>\n
Es scheint also so zu sein, dass diese Einstellungen mit dem Bericht gespeichert werden und nicht als Standardeinstellungen übernommen werden, wenn man diese in einem Bericht ändert.<\/p>\n
Wo werden die Seitenränder gespeichert?<\/h2>\n
Nun möchten wir herausfinden, wo diese Einstellungen gespeichert werden. Dazu speichern wir den Bericht im Textformat auf der Festplatte, und zwar mit dem folgenden Befehl:<\/p>\n
SaveAsText acReport, \"rpt10mm\", _\r\n     Currentproject.Path & \"\\rpt10mm.txt\"<\/pre>\n
Dies legt eine Textdatei mit dem kompletten Code für den Bericht an.<\/p>\n
Auf den ersten Blick finden wir hier keine Einstellung, die nach den Seitenrändern für den Bericht aussieht. Also ändern wir diese nun auf jeweils 20 mm und speichern den Bericht erneut, diesmal unter dem Dateinamen rpt20mm.txt<\/b> (allerdings unter dem gleichen Berichtsnamen):<\/p>\n
SaveAsText acReport, \"rpt10mm\", _\r\n     Currentproject.Path & \"\\rpt20mm.txt\"<\/pre>\n
Nun öffnen wir die beiden Dateien in einem Texttool, welches das Vergleichen von Dateien erlaubt – zum Beispiel Notepad++ <\/b>mit dem Plugin ComparePlus<\/b>.<\/p>\n
Die Unterschiede sehen wir in Bild 3. Die Checksumme stimmt nicht überein, was in Anbetracht weiterer folgender Unterschiede logisch ist.<\/p>\n
\"Unterschiede<\/p>\n
Bild 3: Unterschiede der als Datei gespeicherten Berichte<\/span><\/b><\/p>\n
Der erste Unterschied sind die beiden Eigenschaften Right <\/b>und Bottom<\/b>:<\/p>\n
Die Eigenschaft Right <\/b>hat bei der 10 mm-Variante den Wert 22.245 <\/b>und bei 20 mm den Wert 21.990<\/b>.<\/p>\n
Die Differenz beträgt 255<\/b>. Bei der Eigenschaft Bottom<\/b> beträgt die Differenz ebenfalls 255<\/b>.<\/p>\n
Außerdem gibt es noch Unterschiede bei den Eigenschaften PrtMip <\/b>und PrtDevMode<\/b>. Diese enthalten verschiedene Informationen für den Drucker:<\/p>\n