Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verzeichnispfad in Fusszeile ausdrucken

Verzeichnispfad in Fusszeile ausdrucken
11.07.2003 14:24:01
Karin
Hallo,
wie kann ich den Verzeichnispfad in der Fusszeile mit ausdrucken ?
Ich hatte dafuer mal folgendes Makro - bloss leider funktioniert das nicht mehr.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each sht In ThisWorkbook.Sheets
sht.PageSetup.CenterFooter = "&P / &N"
sht.PageSetup.RightFooter = ThisWorkbook.FullName
sht.PageSetup.RightFooter = ThisWorkbook.Path
Next sht
End Sub

Danke
Karin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnispfad in Fusszeile ausdrucken
11.07.2003 14:57:34
th.heinrich
hi Karin,
hier fuer die komplette mappe.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet
For Each sht In Worksheets
With sht.PageSetup
'For Each sht In ThisWorkbook.Sheets
.CenterFooter = "&P / &N"
.RightFooter = ThisWorkbook.FullName
End With
Next sht
End Sub

gruss thomas

AW: Verzeichnispfad in Fusszeile ausdrucken
11.07.2003 14:46:57
geri
probier es mal so

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
End With
End Sub

gehört in __> diese Arbeitsmappe
gruss geri

Anzeige
AW: Verzeichnispfad in Fusszeile ausdrucken
11.07.2003 14:52:04
geri
Karin denke daran speichern und nochmals öffnen dann korrekt
geri

26 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige