Nedenfor ser vi på et program i Excel VBA at oppretter bunntekst før utskrift en arbeidsbok.
Opprett en arbeidsbok før utskriftshendelse. Koden som er lagt til i Workbook BeforePrint -hendelsen, blir utført av Excel VBA før du skriver ut en arbeidsbok.
1. Åpne Visual Basic Editor.
2. Dobbeltklikk på Denne arbeidsboken i Project Explorer.
3. Velg Arbeidsbok fra rullegardinlisten til venstre. Velg BeforePrint fra rullegardinlisten til høyre.
4. Hvis du vil opprette en bunntekst, legger du til følgende kodelinje i Workbook BeforePrint -hendelsen:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
Merk: Sideoppsett -objektet inneholder alle sidekonfigurasjonsattributtene (venstre bunntekst, bunnmargen, papirstørrelse, venstre margin og så videre) som egenskaper.
5. Test programmet ved å skrive ut arbeidsboken din.
Resultat: