Hieronder zullen we kijken naar een programma in Excel VBA Dat maakt een voettekst voor het afdrukken een werkboek.
Maak een Workbook BeforePrint-gebeurtenis. Code die aan de Workbook BeforePrint-gebeurtenis is toegevoegd, wordt uitgevoerd door Excel VBA voordat u een werkmap afdrukt.
1. Open de Visual Basic-editor.
2. Dubbelklik op Deze Werkmap in de Projectverkenner.
3. Kies Werkmap in de linker vervolgkeuzelijst. Kies BeforePrint in de rechter vervolgkeuzelijst.
4. Om een voettekst te maken, voegt u de volgende coderegel toe aan de Workbook BeforePrint-gebeurtenis:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
Opmerking: Het PageSetup-object bevat alle pagina-instellingskenmerken (linkervoettekst, ondermarge, papierformaat, linkermarge, enzovoort) als eigenschappen.
5. Test het programma door uw werkmap af te drukken.
Resultaat: