Πώς εκτυπώνετε όλα τα φύλλα στο Excel Workbook One κάθε φορά;

Δεν μπορείτε να εκτυπώσετε απευθείας κάθε φύλλο ένα κάθε φορά χρησιμοποιώντας μία εντολή excel. Ωστόσο, μπορείτε να το επιτύχετε χρησιμοποιώντας ένα συνδυασμό κώδικα VBA και βρόχο. Εδώ είναι:

1. Ενεργοποιήστε την καρτέλα προγραμματιστή:

* Μεταβείτε στο Αρχείο> Επιλογές> Προσαρμογή κορδέλας .

* Ελέγξτε το πλαίσιο δίπλα στο προγραμματιστής και κάντε κλικ στο ok .

2. Εισαγωγή κώδικα VBA:

* Κάντε κλικ στον προγραμματιστή καρτέλα και επιλέξτε Visual Basic .

* Στο έργο παράθυρο, κάντε δεξί κλικ στο thisworkbook και επιλέξτε Εισαγωγή> Μονάδα .

* Επικολλήστε τον ακόλουθο κώδικα στην ενότητα:

`` `vba

Sub PrintSheetSetSitivitually ()

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

«Βρόχο σε κάθε φύλλο στο βιβλίο εργασίας

Για κάθε WS σε αυτό το βιβλίο.

«Εκτυπώστε το τρέχον φύλλο

Ws.Printout Αντίγραφα:=1, Collate:=True

«Περιμένετε να τελειώσει η εκτύπωση (προαιρετικό)

Application.Wait Now + TimeValue ("00:00:05") 'Περιμένετε 5 δευτερόλεπτα

Επόμενο WS

Τερματισμός

`` `

3. Εκτελέστε τη μακροεντολή:

* Κλείστε το Visual Basic Editor .

* Επιστρέψτε στον προγραμματιστή καρτέλα και κάντε κλικ στο μακροεντολές .

* Επιλέξτε το PrintSheetsitivesive μακροεντολή και κάντε κλικ στο Εκτελέστε .

Επεξήγηση:

* `Sub PrintSheetSitivivitually ()`: Ορίζει το όνομα μακροεντολής.

* `dim ws ως φύλλο εργασίας ': Δηλώνει μια μεταβλητή για να αντιπροσωπεύει κάθε φύλλο εργασίας.

* για κάθε WS σε αυτό το βιβλίο. Βρόχους μέσα από κάθε φύλλο στο βιβλίο εργασίας.

* `ws.printout αντίγραφα:=1, collate:=true`: Εκτυπώνει το τρέχον φύλλο εργασίας (χρησιμοποιώντας το `ws`), με ένα αντίγραφο και συγκεντρωμένες σελίδες.

* `Application.Wait Now + TimeValue (" 00:00:05 ")`: Αυτή η προαιρετική γραμμή περιμένει για 5 δευτερόλεπτα μετά την εκτύπωση κάθε φύλλου για να διασφαλιστεί ότι η διαδικασία εκτύπωσης είναι πλήρης πριν μετακομίσει στο επόμενο φύλλο. Ρυθμίστε τον χρόνο αναμονής όπως απαιτείται.

* `next ws`: Τελειώνει το βρόχο και συνεχίζει στο επόμενο φύλλο.

Σημαντικές σημειώσεις:

* Ο κωδικός υποθέτει ότι έχετε προεπιλεγμένη ρύθμιση εκτυπωτή. Εάν όχι, μπορείτε να καθορίσετε τον εκτυπωτή χρησιμοποιώντας τον εκτυπωτή Ws.Printout:="Yourprintername".

* Το `wait ' Η δήλωση μπορεί να είναι χρήσιμη για την πρόληψη σφαλμάτων εάν η εκτύπωση απαιτεί σημαντικό χρονικό διάστημα. Ρυθμίστε τον χρόνο αναμονής όπως απαιτείται.

Εναλλακτική λύση:Χρησιμοποιώντας μια μέθοδο βρόχου και `printout` (όχι VBA):

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

1. Σε ένα κελί, εισαγάγετε τον ακόλουθο τύπο:

`` `excel

=Αν (σειρά () <=φύλλα (), "Φύλλο εκτύπωσης" &σειρά (), "")

`` `

2. Αντιγράψτε αυτόν τον τύπο στον αριθμό των φύλλων στο βιβλίο εργασίας σας.

3. Χρησιμοποιήστε τα παρακάτω βήματα για να εκτυπώσετε κάθε φύλλο χρησιμοποιώντας το `printout` μέθοδος:

* Μεταβείτε στο αρχείο> εκτύπωση .

* Στην περιοχή εκτύπωσης αναπτυσσόμενο, επιλέξτε Επιλογή .

* Κάντε κλικ στο εκτύπωση .

Αυτό θα ενεργοποιήσει τη διαδικασία εκτύπωσης για κάθε φύλλο καθώς αντιγράφετε τον τύπο κάτω από τη στήλη.

Επιλέξτε τη μέθοδο που ταιριάζει καλύτερα στις ανάγκες και τις προτιμήσεις σας.