Nedenfor ser vi på et program i Excel VBA at opretter en sidefod inden udskrivning en arbejdsbog.
Opret en projektmappe BeforePrint -begivenhed. Kode tilføjet til Workbook BeforePrint -hændelsen udføres af Excel VBA, før du udskriver en projektmappe.
1. Åbn Visual Basic Editor.
2. Dobbeltklik på Denne projektmappe i Project Explorer.
3. Vælg Projektmappe på rullelisten til venstre. Vælg BeforePrint på rullelisten til højre.
4. Hvis du vil oprette en sidefod, skal du tilføje følgende kodelinje til Workbook BeforePrint -begivenheden:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
Bemærk: PageSetup -objektet indeholder alle sideopsætningsattributter (venstre sidefod, nederste margen, papirstørrelse, venstre margen osv.) Som egenskaber.
5. Test programmet ved at udskrive din projektmappe.
Resultat: