Selina
nur über VBA
47. Aktueller Datenpfad in Kopf-/Fußzeile
'das geht mit folgender VBA-Zeile:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName & "\" & ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
' Kopfzeile Links
Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Phad)
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
End Sub
Gruß Hajo
Selina
welche Wörter Du wählen mußt für die Einzelnen Bereche steht ja schon im Makro.
Drücke Alt+F11 (VBA Editor) Bild sollte zweigeteilt sein sonst Strg+R wähle im linken Fenster Deine Datei mit Doppelklick. Mache jetzt unter Deiner Datei ein Doppelklick auf DieseArbeitsmappe.
Kopiere den Teil von Private Sub bis End Sub ins rechte Fenster. Schließen. Fertig. Bei Druck wird jetzt der Phad eingetragen.
VBA = VisualBasicApplikation das ist die Programmiersprache für Excel
Gruß Hajo
Selina
Die Befehlsfolge wird beim Drucken automatisch ausgeführt.
Also wenn ich folgenden Code in die rechte Seite kopiere kommt bei mir kein Fehler
Gruß Hajo
Ich danke Dir vielmals und hoffe, ich muß Dich nicht mehr in Anspruch nehmen.
Selina
einschließlich. Private und Sub.
Ist de Datei schon gespeichert, ansonsten gibt es kein Phad.
Du hast doch Makros nicht deaktiviert.
Extra, Makro, Sicherheit nicht hoch max. Mittel
Gruß Hajo