Opret en footer før udskrivning i Excel VBA
Nedenfor vil vi se på et program i Excel VBA at opretter en footer før udskrivning en projektmappe.
Opret en Workbook BeforePrint Event. Kode føjet til Workbook BeforePrint Event udføres af Excel VBA, før du udskriver en projektmappe.
1. Åbn Visual Basic Editor.
2. Dobbeltklik på Denne Workbook i Project Explorer.
3. Vælg Arbejdsbog i den venstre rullemenu. Vælg BeforePrint fra den højre rullemenu.
4. For at oprette en footer, tilføj følgende kode linje til Workbook BeforePrint Event:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
Bemærk! PageSetup-objektet indeholder alle sidetilpasningsattributter (venstre sidefod, bundmargin, papirstørrelse, venstre margen osv.) Som egenskaber.
5. Test programmet ved at udskrive din projektmappe.
Resultat: