Beitrag aus SmartTools Access Weekly
Seitenrand in Berichten variabel festlegen
Access 365 2021 2019 2016 2013 2010
FRAGE In einem Bericht meiner Access-Datenbank gibt es einen Berichtskopf. Direkt danach beginnt den Seitenkopf und daran anschließend folgen dann die Detaildatensätze. Wie kann ich nun erreichen, dass der Seitenkopf ab Seite 2 und auch auf den Folgeseiten nicht direkt oben sondern zum Beispiel mit einem Rand von 3 cm beginnt und erst dann die Detaildatensätze folgen? Auf diese Weise könnte ich vorgedrucktes Papier mit einem Logo verwenden.
Diverse Anfragen
ANTWORT Dazu nutzen Sie die Ereignisprozedur "Beim Formatieren" des Seitenkopfes und stellen dort abhängig von der aktuellen Seite dessen Höhe individuell ein. Die Werte sind normalerweise in Twips anzugeben. Um die Umrechnung und Handhabung zu vereinfachen, nutzen Sie eine Funktion "mm", um die Werte direkt in Millimetern angeben zu können. Kopieren Sie sie zunächst in ein vorhandenes oder neues Modul Ihres VBA-Projektes:
Public Function mm(Millimeter As Single) As Long
mm = CLng(Millimeter * 56.7)
End Function
Ein Twip entspricht 1/20 eines Punktes, der wiederum 1/72 eines Inches entspricht. Auf einen Inch kommen somit 1440 Twips. Ein Inch entspricht 2,54 cm, 1440 geteilt durch 2,54 ergibt 567 Twips pro Zentimeter oder 56,7 Twips pro Millimeter. Der Parameter "Millimeter" wird also mit 57,6 multipliziert und ergibt so den entsprechenden Wert in Twips.
In der Ereignisprozedur "Beim Formatieren" des Seitenkopfes geben Sie folgende Anweisungen ein:
Private Sub Seitenkopf_Format(Cancel As Integer, _
FormatCount As Integer)
If Me.Page > 2 Then
Seitenkopf.Height = mm(30)
End If
End Sub
Die Eigenschaft "Page" des Berichtes liefert die aktuelle Seitennummer. Ist diese größer 2, wird die Höhe des Seitenkopfes auf 30 Millimeter eingestellt, ansonsten bleibt sie unverändert.