/ / / Δημιουργήστε ένα υποσέλιδο πριν από την εκτύπωση στο Excel VBA

Δημιουργήστε ένα υποσέλιδο πριν από την εκτύπωση στο Excel VBA

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι δημιουργεί υποσέλιδο πριν από την εκτύπωση ένα βιβλίο εργασίας.

Δημιουργία συμβάντος πριν από την εκτύπωση βιβλίου εργασίας. Ο κώδικας που προστέθηκε στο Πρόγραμμα εκτύπωσης του βιβλίου εργασίας πριν εκτυπώνεται θα εκτελείται από το Excel VBA πριν εκτυπώσετε ένα βιβλίο εργασίας.

1. Ανοίξτε τον Επεξεργαστή Visual Basic.

2. Κάντε διπλό κλικ σε αυτό το βιβλίο εργασίας στο Explorer του έργου.

3. Επιλέξτε Βιβλίο εργασίας από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε Προεκτύπωση από τη δεξιά αναπτυσσόμενη λίστα.

Βιβλίο εργασίας πριν από την εκτύπωση στο Excel VBA

4. Για να δημιουργήσετε ένα υποσέλιδο, προσθέστε την ακόλουθη γραμμή κώδικα στο Eventbook BeforePrint Event:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

Σημείωση: Το αντικείμενο PageSetup περιέχει όλα τα χαρακτηριστικά ρύθμισης σελίδας (αριστερό υποσέλιδο, κάτω περιθώριο, μέγεθος χαρτιού, αριστερό περιθώριο κλπ.) Ως ιδιότητες.

5. Δοκιμάστε το πρόγραμμα εκτυπώνοντας το βιβλίο εργασίας σας.

Αποτέλεσμα:

Υποσέλιδο

Επίσης διαβάστε: