Přidání adresy cesty do záhlaví/zápatí

Anonim

Chcete -li přidat cestu k záhlaví nebo zápatí při tisku při použití aplikací Excel 97 a Excel 2000, přidejte událost (řádky kódu makra), která automaticky způsobí, že se informace, včetně cesty, objeví na každém listu, který tisknete ze sešitu.

Chcete -li přidat cestu do záhlaví nebo zápatí:

1. Otevřete VBE (editor jazyka) stisknutím Alt+F11.
2. V aplikaci Project Explorer poklepejte na modul ThisWorkbook.
3. V rozevíracím seznamu Objekt vyberte Sešit a v rozevíracím seznamu Postup vyberte BeforePrint (tyto dva rozevírací seznamy jsou v horní části listu Modul).
4. V proceduře Událost mezi automaticky generovanými úvodními a závěrečnými příkazy zadejte následující kód:

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

Písmena A, F, T, D jsou název listu, název sešitu, čas a datum.
Při použití aplikací Excel 2002 a Excel 2003 bude řádek kódu kratší (Z je adresa cesty):
LeftFooter = "& A & F & T & D & Z"
Snímek obrazovky // Přidání adresy cesty do záhlaví/zápatí