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

Εδώ θα μιλήσω για την εκτύπωση πολλαπλών επιλεγμένων σειρών σε μία σελίδα με 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 Αντιγραφή σειρών χρησιμότητα για να το αντιμετωπίσει.

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

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

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

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

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

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

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

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

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

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

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

:

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

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

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

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