Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι δημιουργεί ένα υποσέλιδο πριν από την εκτύπωση ένα βιβλίο εργασίας.
Δημιουργήστε ένα βιβλίο εργασίας BeforePrint Event. Ο κώδικας που προστέθηκε στο Workbook BeforePrint Event θα εκτελεστεί από το Excel VBA πριν εκτυπώσετε ένα βιβλίο εργασίας.
1. Ανοίξτε το Visual Basic Editor.
2. Κάντε διπλό κλικ σε Αυτό το βιβλίο εργασίας στο Project Explorer.
3. Επιλέξτε Βιβλίο εργασίας από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε BeforePrint από τη δεξιά αναπτυσσόμενη λίστα.
4. Για να δημιουργήσετε ένα υποσέλιδο, προσθέστε την ακόλουθη γραμμή κώδικα στο Βιβλίο εργασίας BeforePrint Event:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
Σημείωση: Το αντικείμενο PageSetup περιέχει όλα τα χαρακτηριστικά ρύθμισης σελίδας (αριστερό υποσέλιδο, κάτω περιθώριο, μέγεθος χαρτιού, αριστερό περιθώριο κ.ο.κ.) ως ιδιότητες.
5. Δοκιμάστε το πρόγραμμα εκτυπώνοντας το βιβλίο εργασίας σας.
Αποτέλεσμα:
