VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kopf- und Fußzeileneintrag vor dem Drucken

Gruppe

Druck

Bereich

Kopf/Fußzeile

Thema

Kopf- und Fußzeileneintrag vor dem Drucken

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

    


Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile