ich weiß, dass es geht, aber ich weiß nicht mehr wie:
Ich möchte nicht nur den Dateinamen (das kann ich :-) ) in die Kopfzeile bugsieren, sondern auch den Pfad dazu angeben, wie war das noch?
Danke Tanja
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" & ActiveSheet.Name (Komplette Dateiname einschl. Phad + Register)
' Kopfzeile Links
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Path & "\" (nur Phad)
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
End Sub