Žemiau apžvelgsime programą Excel VBA kad prieš spausdindama sukuria poraštę darbo knyga.
Sukurkite darbaknygę prieš spausdinant įvykį. Prieš spausdinant darbaknygę „Excel VBA“ bus įvykdytas kodas, pridėtas prie darbaknygės „BeforePrint“ įvykis.
1. Atidarykite „Visual Basic“ redaktorių.
2. „Project Explorer“ dukart spustelėkite Ši darbo knyga.
3. Iš kairiojo išskleidžiamojo sąrašo pasirinkite Darbaknygė. Iš dešiniojo išskleidžiamojo sąrašo pasirinkite „BeforePrint“.
4. Norėdami sukurti poraštę, pridėkite šią kodo eilutę prie darbaknygės BeforePrint įvykio:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
Pastaba: „PageSetup“ objekte kaip savybės yra visi puslapio sąrankos atributai (kairioji poraštė, apatinė paraštė, popieriaus dydis, kairioji paraštė ir pan.).
5. Išbandykite programą spausdindami savo darbaknygę.
Rezultatas: