Hilfe,
Ich versuche mich mit einem Makro, den Pfad und Namen der Datei in Excel2000 beim Drucken auszugeben.
Da eiegentlich Makro habe ich. Nur wie kann ich es vor dem Drucken, bzw. NAch dem Speichern der Datei automatisch ausführen lassen?
Mein Makro sieht folgender Maßen aus:
—Schnipp----
Public Sub PfadInFusszeile()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub
—Schnapp----
Smiley
Hallo, Smiley!
Ich versuche mich mit einem Makro, den Pfad und Namen der
Datei in Excel2000 beim Drucken auszugeben.
Da eiegentlich Makro habe ich. Nur wie kann ich es vor dem
Drucken, bzw. NAch dem Speichern der Datei automatisch
ausführen lassen?
Da gibt es unter VBA im Modul „DieseArbeitsmappe“ die Ereignisse „BeforePrint“ und „BeforeSave“ des Workbook-Objekts. In diesen kannst Du Dein Makro aufrufen.
Mein Makro sieht folgender Maßen aus:
—Schnipp----
Public Sub PfadInFusszeile()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub
—Schnapp----
Geht das erst mit XP? Habe leider kein 2k, aber unter XP kannst Du diese Fusszeile entsprechend einstellen als „&[Pfad]&[Datei]“. Probier’s mal bei Dir.
Gruß, Manfred
Hallo
folgender Code in :„Diese Arbeitsmappe“
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In Worksheets
wks.PageSetup.LeftFooter = ThisWorkbook.FullName
wks.PageSetup.RightFooter = Date
Next wks
End Sub
nun wird vor dem drucken in jedem Arbeitsblatt Dateiname+Pfad und Datum ausgegeben
mfg
Spaguzzi
Hilfe,
Ich versuche mich mit einem Makro, den Pfad und Namen der
Datei in Excel2000 beim Drucken auszugeben.
Alternativ-Vorschlag:
schreibe irgendwo auf dem Blatt
=ZELLE(„Dateiname“;$A$1)
-> ist der komplette Pfadname incl. Datei- und Blattname
-> wird bei jedem „Speichern unter“ autom. aktualisiert
wie man das (ohne Makro) in die Fusszeile bekommt weiss ich aber auch nicht…