Μπορείτε να δημιουργήσετε μια προσαρμοσμένη αναφορά εκτύπωσης προσθέτοντας μακροεντολή VBA σε ένα κανονικό φύλλο λειτουργικής μονάδας (μπορείτε να κατεβάσετε τη μακροεντολή από τη διεύθυνση www.exceltip.com).
Δομή της αναφοράς προσαρμοσμένης εκτύπωσης:
2. Στήλη Α: Αυτή η στήλη περιέχει αριθμούς μεταξύ 1 και 3: εκτύπωση από φύλλο, εκτύπωση κατά όνομα εύρους ή εκτύπωση από προσαρμοσμένη προβολή (συνιστάται).
3. Στήλη Β: Πληκτρολογήστε το όνομα του φύλλου, το όνομα περιοχής ή το όνομα προσαρμοσμένης προβολής.
4. Στήλη Γ: Πληκτρολογήστε τον αριθμό σελίδας που θα εκτυπωθεί στο υποσέλιδο.
Η μακροεντολή θα εκτυπώσει από ένα φύλλο και θα προσθέσει αυτόματα τις απαραίτητες πληροφορίες στο υποσέλιδο, συμπεριλαμβανομένου του αριθμού σελίδας, του ονόματος του βιβλίου εργασίας, της διαδρομής και του ονόματος του φύλλου, καθώς και την ημερομηνία και την ώρα εκτύπωσης.
Υποεκτυπώσεις ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Dim ActiveSh ως φύλλο εργασίας, ChooseShNameView As String
Dim ShNameView As String, cell As Range
Application.ScreenUpdating = Λάθος
Ορισμός ActiveSh = ActiveSheet
Εύρος ("a2"). Επιλέξτε
Για κάθε κελί σε εύρος (Εύρος ("a2"), Εύρος ("a2"). Τέλος (xlDown))
Επιλέξτε Cell cell.Value
Περίπτωση 1
Φύλλα (ShNameView). Επιλέξτε
Υπόθεση 2
Application.GoTo Reference: = ShNameView
Υπόθεση 3
ActiveWorkbook.CustomViews (ShNameView) .Εμφάνιση
Τέλος Επιλογή
Με το ActiveSheet.PageSetup
Το CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Τέλος με
Αντιγραφή ActiveWindow.SelectedSheets.PrintOut: = 1
Επόμενο i
ActiveSh. Επιλέξτε
Application.ScreenUpdating = True
Τέλος υπο
5. Ο βρόχος Για κάθε στη μακροεντολή προκαλεί ξεχωριστή εκτύπωση για κάθε κελί στη στήλη Α που ξεκινά από το Α2.
6. Στον βρόχο, η περιοχή εκτύπωσης επιλέγεται χρησιμοποιώντας την τεχνική Select Case.
7. Οι πληροφορίες που εκτυπώνονται στην αριστερή πλευρά του υποσέλιδου: & 08 = γραμματοσειρά 8 σημείων, & D = Ημερομηνία, & T = Timeρα.
8. Για να εκτελέσετε τη μακροεντολή από το φύλλο, πατήστε Alt+F8, επιλέξτε τη μακροεντολή και κάντε κλικ στην επιλογή Εκτέλεση.
Ή
Προσθέστε ένα κουμπί στο φύλλο και επισυνάψτε τη μακροεντολή σε αυτό.
9. Σημείωση: Χρησιμοποιήστε αυτήν την τεχνική για να προσθέσετε απεριόριστο αριθμό αναφορών.
Στιγμιότυπο οθόνης // Δημιουργία προσαρμοσμένης διαχείρισης αναφορών