Μετάβαση στο κύριο περιεχόμενο

Πώς να εκτυπώσετε πολλές επιλεγμένες σειρές σε μία σελίδα στο Excel;

Κατά την εκτύπωση επιλογών στο Excel, θα εκτυπώνονται διαδοχικά εύρη σε ξεχωριστές σελίδες. Σε ορισμένες περιπτώσεις, ίσως χρειαστεί να εκτυπώσουμε μόνο ορισμένες επιλεγμένες σειρές / εύρη σε μια σελίδα από έναν μακρύ πίνακα, αλλά αυτές οι επιλεγμένες σειρές / περιοχές δεν είναι διαδοχικές. Επομένως, πώς να εκτυπώσετε αυτές τις σειρές / περιοχές σε μία σελίδα στο Excel; Υπάρχουν πολλές λύσεις:

Εκτυπώστε πολλές επιλεγμένες σειρές σε μία σελίδα με VBA

Εκτυπώστε πολλές επιλεγμένες σειρές σε μία σελίδα με αντιγραφή σε ένα φύλλο εργασίας

Εκτυπώστε πολλές επιλεγμένες σειρές σε μία σελίδα με το Kutools για Excel

Μαζική εκτύπωση πολλαπλών επιλογών (όλες οι περιοχές εκτύπωσης) σε μία σελίδα στο Excel

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

διαφήμιση εκτύπωσης πολλαπλών επιλογών 2


Εδώ θα μιλήσω για την εκτύπωση πολλαπλών επιλεγμένων σειρών σε μία σελίδα με VBA στο Excel. Κάντε τα εξής:

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε τον παρακάτω κώδικα VBA σε νέο παράθυρο ανοίγματος Module.

VBA: Εκτύπωση πολλαπλών επιλεγμένων σειρών σε μία σελίδα στο Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Τύπος F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

4. Τώρα εμφανίζεται ένα παράθυρο διαλόγου Kutools για Excel. Επιλέξτε πολλές σειρές που θα εκτυπώσετε και κάντε κλικ στο OK κουμπί για να εκτυπώσετε αυτές τις σειρές.

Note: Κρατώντας το Ctrl πλήκτρο, μπορείτε να επιλέξετε πολλές παράλληλες σειρές ταυτόχρονα.


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

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

1. Δημιουργήστε ένα νέο φύλλο εργασίας, στη συνέχεια επιλέξτε σειρές που θα εκτυπώσετε από τον πίνακα σας και κάντε κλικ στο Kutools > Αντιγραφή σειρών.

Note: Κρατώντας το Ctrl κλειδί, μπορείτε να επιλέξετε πολλές διαδοχικές σειρές ταυτόχρονα.

2. Στο πλαίσιο διαλόγου "Αντιγραφή πολλαπλών σειρών", επιλέξτε Όλα και κάντε κλικ στο Ok κουμπί.

Note: Ο Συμπεριλαμβανομένου του ύψους σειράς επιλογή και Συμπεριλαμβανομένου του πλάτους της στήλης Οι επιλογές θα αντιγράψουν τα ύψη και τα πλάτη των επιλεγμένων περιοχών και θα επικολληθούν στο εύρος προορισμού.

3. Επιλέξτε το κελί A1 στο νέο φύλλο εργασίας που δημιουργήθηκε και κάντε κλικ στο OK Κουμπί.

4. Μείνετε στο φύλλο εργασίας προορισμού και κάντε κλικ στο Kutools > Διαγραφή > Διαγραφή κενών γραμμών > Στο ενεργό φύλλο.

Και έπειτα βγαίνει ένα παράθυρο διαλόγου και σας δείχνει πόσες σειρές έχουν διαγραφεί. Απλά κλείστε το.

5. Κάντε κλικ στο κουμπί ΑρχείαΚουμπί γραφείου)> για να εκτυπώσετε αυτές τις σειρές.

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα


Στην πραγματικότητα Kutools για σχέδια Excel Εκτύπωση Οδηγού πολλαπλής επιλογής για να εκτυπώσετε πολλές σειρές μαζί στο Excel.

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

1. κλικ Εταιρεία > Εκτύπωση > Εκτύπωση Οδηγού πολλαπλής επιλογής για να ανοίξετε τον Οδηγό εκτύπωσης πολλαπλών επιλογών.

2. Στο άνοιγμα Οδηγός εκτύπωσης πολλαπλών επιλογών, κάντε κλικ στο Πρόσθεση κουμπί  για να προσθέσετε σειρές που θα εκτυπώσετε μαζί και κάντε κλικ στο φινίρισμα κουμπί.

:

(1) Αφού κάνετε κλικ στο Πρόσθεση κουμπί , μπορείτε να επιλέξετε πολλά διαδοχικά εύρη σε ένα φύλλο εργασίας κρατώντας πατημένο το Ctrl κλειδί και στη συνέχεια επιλέγοντας ένα προς ένα.

(2) Για να αφαιρέσετε ένα εύρος / σειρά από το Σειρές για εκτύπωση λίστα, απλώς επιλέξτε αυτό το εύρος / σειρά και κάντε κλικ στο Διαγραφή κουμπί.

(3) Αυτό το βοηθητικό πρόγραμμα δεν υποστηρίζει εκτύπωση ολόκληρων γραμμών και στηλών, όπως ολόκληρη σειρά του $ 4: $ 4ή ολόκληρη τη στήλη του $ B: $ B.

3. Επιλεγμένες σειρές / περιοχές επικολλήθηκαν ως συνδεδεμένες εικόνες σε ένα νέο φύλλο εργασίας. Προχωρήστε για να κάνετε κλικ ΑρχείαΚουμπί γραφείου)> για να το εκτυπώσετε.

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα


Kutools για Excel: Πάνω από 300 εύχρηστα εργαλεία στα χέρια σας! Ξεκινήστε τη δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς δυνατοτήτων σήμερα. Κατεβάστε τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations