Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Kopf- und Fußzeileneintrag vor dem Drucken

Gruppe

Kopf/Fußzeile

Problem

Vor dem Drucken wird über das BeforePrintEreignis der Text gem. Spalte B eingetragen.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Name = "Tabelle1" Then
      ActiveSheet.PageSetup.LeftFooter = Range("B1").Value
      ActiveSheet.PageSetup.CenterFooter = Range("B2").Value
      ActiveSheet.PageSetup.RightFooter = Range("B3").Value
   Else
      ActiveSheet.PageSetup.LeftFooter = ""
      ActiveSheet.PageSetup.CenterFooter = ""
      ActiveSheet.PageSetup.RightFooter = ""
   End If
End Sub