Πώς εκτυπώνετε την επιλογή σε κάθε σελίδα στο Excel;

Το Excel δεν διαθέτει ενσωματωμένο χαρακτηριστικό για την αυτόματη εκτύπωση μιας συγκεκριμένης επιλογής σε * κάθε σελίδα ενός μεγαλύτερου φύλλου εργασίας. Το χαρακτηριστικό της περιοχής εκτύπωσης σάς επιτρέπει μόνο να καθορίσετε μία περιοχή για εκτύπωση. Για να επιτευχθεί αυτό, θα χρειαστείτε μια λύση και η καλύτερη προσέγγιση εξαρτάται από το είδος επιλογής που προσπαθείτε να εκτυπώσετε:

Σενάριο 1:Η επιλογή είναι ένα στοιχείο που μοιάζει με κεφαλίδα ή υποσέλιδο (επαναλαμβανόμενο περιεχόμενο)

* Χρησιμοποιήστε την κεφαλίδα/υποσέλιδο: Εάν η επιλογή προορίζεται να είναι μια κεφαλίδα ή υποσέλιδο, αυτή είναι η ευκολότερη λύση. Μεταβείτε στην καρτέλα "Layout Page", κάντε κλικ στην επιλογή "Τίτλοι εκτύπωσης", και στη συνέχεια καθορίστε το εύρος που θέλετε να επαναλάβετε ως κεφαλίδα ή υποσέλιδο στα κατάλληλα πλαίσια.

Σενάριο 2:Η επιλογή είναι ένα μικρό στοιχείο που πρέπει να εμφανιστεί σε κάθε σελίδα (π.χ. λογότυπο)

* Εισαγωγή ως εικόνα: Αντιγράψτε την επιλογή σας, επικολλήστε την ως εικόνα (χρησιμοποιώντας την επιλογή "Paste Special" και επιλέγοντας "εικόνα (βελτιωμένο metafile)" ή παρόμοια μορφή) και τοποθετήστε την όπου θέλετε σε κάθε σελίδα. Αυτή η εικόνα θα εκτυπώσει σε κάθε σελίδα. Σημειώστε ότι εάν το περιεχόμενό σας αλλάξει συχνά, θα πρέπει να ενημερώσετε την εικόνα κάθε φορά.

Σενάριο 3:Η επιλογή είναι ένα πιο περίπλοκο στοιχείο ή δεδομένα που πρέπει να βρίσκονται σε κάθε σελίδα (πιο δύσκολη)

Αυτό απαιτεί μια πιο προηγμένη προσέγγιση, που συχνά περιλαμβάνει μακροεντολή VBA (Visual Basic for Applications). Δεν υπάρχει απλή λύση μη-VBA για αυτό. Μια μακροεντολή θα χρειαστεί να:

1. Προσδιορίστε τον αριθμό των σελίδων: Αυτό περιλαμβάνει τον υπολογισμό του μεγέθους της εκτυπώσιμης περιοχής και του μεγέθους των δεδομένων.

2. Επεξεργασία μέσω σελίδων: Η μακροεντολή θα βρόχο σε κάθε σελίδα.

3. Εκτυπώστε την επιλογή σε κάθε σελίδα: Αυτό μπορεί να περιλαμβάνει προσωρινά ρύθμιση της περιοχής εκτύπωσης ή χρησιμοποιώντας τεχνικές λήψης οθόνης μέσα στη μακροεντολή για να "σφραγίσει" την επιλογή στην εικόνα κάθε σελίδας πριν από την εκτύπωση.

Παράδειγμα κώδικα VBA (σύμπλεγμα και απαιτεί τροποποίηση με βάση τις ανάγκες σας): Αυτή είναι μια απλοποιημένη εικόνα και μπορεί να μην λειτουργεί χωρίς προσαρμογή στο συγκεκριμένο φύλλο σας. Είναι σημαντικό να κατανοήσουμε το VBA πριν το επιχειρήσετε.

`` `vba

Sub printSelectionOnPage ()

«Αυτό είναι ένα εξαιρετικά απλοποιημένο παράδειγμα και πιθανότατα θα απαιτήσει σημαντική τροποποίηση

«Για να εργαστείτε σωστά για τη συγκεκριμένη κατάστασή σας.

Dim WS ως φύλλο εργασίας

SET ws =thisworkbook.sheets ("sheet1") 'Αλλαγή "φύλλο1" στο όνομα του φύλλου σας

Dim SelectionRange ως εύρος

Set SelectionRange =WS.Range ("A1:B5") 'Αλλαγή στην πραγματική σειρά επιλογής σας

Dim Pic ως εικόνα

Set pic =ws.pictures.add (SelectionRange.top, SelectionRange.left, SelectionRange.Width, SelectionRange.Height)

pic.Copypicture εμφάνιση:=xlscreen, format:=xlpicture

'... (κωδικός για τον προσδιορισμό του αριθμού των σελίδων και του βρόχου μέσω αυτών, επικολλώντας την εικόνα) ...

Τερματισμός

`` `

Σύσταση: Για τις περισσότερες περιπτώσεις, ειδικά εάν η "επιλογή" σας είναι μια κεφαλίδα, υποσέλιδο ή απλό λογότυπο, χρησιμοποιώντας την ενσωματωμένη κεφαλίδα/υποσέλιδο ή εισάγετε μια εικόνα είναι η καλύτερη προσέγγιση. Εάν χρειάζεστε το πιο περίπλοκο σενάριο 3, θα χρειαστείτε σημαντική τεχνογνωσία ή βοήθεια από κάποιον με αυτή την εμπειρία. Θυμηθείτε να δημιουργείτε πάντα αντίγραφο ασφαλείας του βιβλίου εργασίας σας πριν εκτελέσετε τον κωδικό VBA.