PFAD & DATUM IN FUßZEILE - bei Druck
08.12.2005 11:40:20
Thomas
möchte auf Wunsch beim Drucken eine Pfad- und Datumsanzeige in der Fußzeile haben. Das soll für neue sowie für bereits bestehende Tabellen gelten.
Eine Möglichkeit aus einem anderem Forum besagt in personl.xls folgendes einzufügen:
--> ins Klassenmodul:
Public WithEvents xlApp As Application
Private Sub xlApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In Wb.Worksheets
sh.PageSetup.LeftFooter = "&8" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & _
" [" & ActiveSheet.Name & "], " & _
"&D / &T"
sh.PageSetup.RightFooter = "&8" & "&P/ &N"
Next
End Sub
--> ins Modul:
Dim cls As Klasse1
Sub Workbook_Open()
Set cls = New Klasse1
Set cls.xlApp = Application
End Sub
LEIDER funktioniert das aber aus irgend einem Grund nicht. Selbst wenn, würde es immer beim Drucken aktiviert werden. Möchte aber selbst entscheiden ob das Makro aktiv ist oder nicht.
Hat jemand eine Idee wie sich das realisieren läßt?
Bin für jegliche Anregungen dankbar!
Gruß
Thomas