Lägga till sökvägsadress till sidhuvudet/sidfoten

Anonim

Om du vill lägga till sökvägen till ett sidhuvud eller en sidfot när du skriver ut när du använder Excel 97 och Excel 2000, lägger du till en händelse (makrokodrader) som automatiskt gör att information, inklusive sökvägen, visas på varje ark du skriver ut från arbetsboken.

Så här lägger du till sökvägen till en sidhuvud eller sidfot:

1. Öppna VBE (Visual Basic Editor) genom att trycka på Alt+F11.
2. I Project Explorer dubbelklickar du på ThisWorkbook-modulen.
3. I listrutan Objekt väljer du Arbetsbok, och i rutan Procedur väljer du BeforePrint (dessa två rullgardinslistor finns högst upp på modularket).
4. I händelseförfarandet, mellan de automatiskt genererade öppnings- och avslutningsuttalandena, skriver du följande kod:

ActiveSheet.PageSetup.LeftFooter = "& A & F & T & D" & ActiveWorkbook.Path

Bokstäverna A, F, T, D är bladets namn, arbetsbokens namn, tid respektive datum.
När du använder Excel 2002 och Excel 2003 blir kodraden kortare (Z är för sökadressen):
LeftFooter = "& A & F & T & D & Z"
Skärmdump // Lägga till sökvägsadress till sidhuvudet/sidfoten