Μία από τις πιο σημαντικές και ευρέως χρησιμοποιούμενες εργασίες που συναντάμε κατά την εργασία με VBA στο Excel είναι η εκτύπωση των απαραίτητων δεδομένων. Σήμερα σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να εκτυπώσετε δεδομένα στο Excel VBA με κατάλληλα παραδείγματα και εικόνες.

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

Βήματα για την εκτύπωση δεδομένων με το Excel VBA

Εδώ έχω ένα σύνολο δεδομένων με το Ονόματα, τύποι , και Τιμές κάποιων βιβλίων ενός βιβλιοπωλείου που ονομάζεται Martin Bookstore.

Σήμερα θα μάθουμε πώς μπορούμε να εκτυπώσουμε αυτό το σύνολο δεδομένων με το VBA .

Βήμα 1: Άνοιγμα του επεξεργαστή VBA για εκτύπωση στο Excel

Τύπος ALT+F11 στο πληκτρολόγιό σας. Θα ανοίξει το Visual Basic Εκδότης.

Διαβάστε περισσότερα: Πώς να ορίσετε την περιοχή εκτύπωσης στο Excel (5 μέθοδοι)

Βήμα 2: Εισαγωγή νέας ενότητας για εκτύπωση στο Excel

Πηγαίνετε στο Εισαγωγή στην επιλογή VBA γραμμή εργαλείων. Εισαγωγή> Ενότητα για να ανοίξετε μια νέα ενότητα.

Σχετικό περιεχόμενο: Πώς να εκτυπώσετε γραμμές πλέγματος στο Excel (2 τρόποι)

Βήμα 3: Εισαγωγή του κώδικα VBA για εκτύπωση στο Excel

Μια νέα ενότητα με το όνομα Ενότητα1 Εισάγετε τα εξής VBA κώδικα εκεί.

⧭ Κώδικας VBA:

 Sub VBA_Print() ActiveWorkbook.ActiveSheet.PrintOut copies:=1 End Sub 

⧭ Σημειώσεις:

• Εδώ, θέλω να εκτυπώσω το ενεργό φύλλο εργασίας του βιβλίου εργασίας μου. Για να εκτυπώσετε οποιοδήποτε άλλο φύλλο εργασίας, γράψτε το όνομα του φύλλου εργασίας απευθείας στον κώδικα.

Για παράδειγμα, για να εκτυπώσετε το φύλλο εργασίας που ονομάζεται Φύλλο1 , χρήση:

ActiveWorkbook.Worksheets("Sheet1").PrintOut copies:=1

• Μπορείτε επίσης να εκτυπώσετε από ένα βιβλίο εργασίας που δεν είναι ενεργό. Για παράδειγμα, για να εκτυπώσετε Φύλλο1 από ένα βιβλίο εργασίας που ονομάζεται Βιβλίο εργασίας1 , χρήση:

Workbook("Workbook1").Worksheets("Sheet1").PrintOut copies:=1

• Εδώ εκτυπώνουμε μόνο ένα αντίγραφο του φύλλου εργασίας. Αν θέλετε να εκτυπώσετε περισσότερα από ένα αντίγραφα, αλλάξτε το αντίγραφα ιδιότητα αναλόγως.
• Αν θέλετε να εκτυπώσετε πολλαπλά φύλλα εργασίας και να τα ταξινομήσετε κατά την εκτύπωση, υπάρχει επίσης μια επιλογή για εσάς. PrintOut συνάρτηση της VBA έχει μια ιδιότητα που ονομάζεται Συγκεντρώστε το . Ορίστε να είναι Αλήθεια .

ActiveWorkbook.ActiveSheet.PrintOut copies:=10, Collate:=True

Σχετικό περιεχόμενο: Excel VBA: Πώς να ορίσετε δυναμικά την περιοχή εκτύπωσης (7 τρόποι)

Παρόμοιες αναγνώσεις:

• Κουμπί Excel για την εκτύπωση συγκεκριμένων φύλλων (με εύκολα βήματα)
• Πώς να εκτυπώσετε οριζόντια στο Excel (4 μέθοδοι)
• Εκτύπωση πολλαπλών φύλλων Excel σε ενιαίο αρχείο PDF με VBA (6 κριτήρια)
• Η εκτύπωση τίτλων στο Excel είναι απενεργοποιημένη, πώς να την ενεργοποιήσετε;
• Πώς να εκτυπώσετε το φύλλο του Excel σε μέγεθος A4 (4 τρόποι)

Βήμα 4: Εκτέλεση του κώδικα VBA για εκτύπωση στο Excel

Μετά την εισαγωγή του VBA κώδικα σωστά, εκτελέστε το Μάκρο κάνοντας κλικ στο Εκτέλεση στην επιλογή VBA γραμμή εργαλείων.

Σχετικό περιεχόμενο: Excel VBA: Ορισμός περιοχής εκτύπωσης για πολλαπλές περιοχές (5 παραδείγματα)

Βήμα 5: Η τελική έξοδος: Εκτύπωση με VBA

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

Σχετικό περιεχόμενο: Excel VBA: Εκτύπωση περιοχής κελιών (5 εύκολες μέθοδοι)

Πράγματα που πρέπει να θυμάστε

Εδώ έχουμε χρησιμοποιήσει το PrintOut συνάρτηση της VBA Υπάρχει μια άλλη λειτουργία στο VBA που ονομάζεται PrintPreview , που εμφανίζει την προεπισκόπηση των δεδομένων πριν από την εκτύπωση.

Η σύνταξη του PrintPreview είναι η ίδια με τη συνάρτηση PrintOut συνάρτηση, απλά χρησιμοποιήστε PrintPrview στη θέση του PrintOut .

ActiveWorkbook.ActiveSheet.PrintPreview

Θα εμφανιστεί η προεπισκόπηση του φύλλου εργασίας σας πριν από την εκτύπωση.

Συμπέρασμα

Έτσι, αυτή είναι η μέθοδος με την οποία μπορείτε να εκτυπώσετε οποιαδήποτε δεδομένα από ένα φύλλο εργασίας του Excel με VBA Έχετε οποιεσδήποτε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε. Και μην ξεχάσετε να επισκεφθείτε τον ιστότοπό μας ExcelWIKI για περισσότερες αναρτήσεις και ενημερώσεις.