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

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

Μπορείτε να κατεβάσετε το δωρεάν πρότυπο Excel από εδώ και να εξασκηθείτε μόνοι σας.

5 παραδείγματα χρήσης κώδικα VBA για το κουμπί εκτύπωσης στο Excel

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

1. Χρησιμοποιήστε τον κώδικα VBA για να δημιουργήσετε κουμπί εκτύπωσης για το πλαίσιο διαλόγου εκτύπωσης στο Excel

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

Βήματα:

• Κάντε κλικ στο ως εξής: Προγραμματιστής >>, Εισαγωγή >>, Κουμπί Κουτί.

Αμέσως μετά, θα λάβετε ένα σύμβολο συν (+) στο δρομέας .

• Drag που δρομέας σύμφωνα με το επιθυμητό σας μέγεθος κουμπιού και μετά από λίγο, ένα παράθυρο διαλόγου με το όνομα Ανάθεση μακροεντολών θα ανοίξει.

• Δώστε ένα όνομα και πατήστε Νέα .

A VBA θα εμφανιστεί το παράθυρο.

• Στη συνέχεια, πληκτρολογήστε τους ακόλουθους κωδικούς σε αυτό-

 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub 

• Τώρα γυρίστε πίσω στο δικό σας φύλλο .

Ανάλυση κώδικα

• Εδώ, δημιούργησα ένα Υπο διαδικασία, DialogBox .
• Στη συνέχεια χρησιμοποιήθηκε Διάλογοι (xlDialogPrint).Show για να ανοίξετε το Παράθυρο διαλόγου εκτύπωσης .

Το κουμπί δημιουργείται.

• Κάντε δεξί κλικ στο στο κουμπί και επιλέξτε Επεξεργασία κειμένου από το Μενού περιβάλλοντος για να αλλάξετε το όνομα του κουμπιού.

• Αργότερα, μόλις τύπος το όνομα και κάντε κλικ στο το σας ποντίκι οπουδήποτε έξω από το κουμπί .

Στη συνέχεια, απλά πατήστε το Κουμπί .

Τότε θα λάβετε το Παράθυρο διαλόγου εκτύπωσης . Αν θέλετε μπορείτε να Εκτύπωση τώρα.

Εάν δεν έχετε κανένα Εκτυπωτής αυτή τη στιγμή μπορείτε να Αποθήκευση ως PDF . για περαιτέρω χρήση ή για Εκτύπωση αργότερα.

• Τώρα πατήστε OK .

• Αυτή τη στιγμή απλά δώστε ένα όνομα και πατήστε Αποθήκευση .

Εδώ είναι το τυπωμένο PDF .

Διαβάστε περισσότερα: Πώς να προσαρμόσετε τις ρυθμίσεις εκτύπωσης στο Excel (8 κατάλληλα κόλπα)

2. Χρήση κώδικα VBA για να δημιουργήσετε κουμπί εκτύπωσης για το ενεργό φύλλο

Εδώ, θα χρησιμοποιήσουμε VBA στο εκτύπωση ένα Ενεργό Φύλλο .

Βήματα:

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

Αμέσως μετά, ένα VBA θα ανοίξει το παράθυρο.

• Τότε γράψτε τα ακόλουθα κωδικοί σε αυτό-

 Sub ActiveSheet() ActiveSheet.PrintOut End Sub 

• Αργότερα, γυρίστε πίσω στο

Ανάλυση κώδικα

• Εδώ, δημιούργησα ένα Υπο διαδικασία, ActiveSheet .
• Στη συνέχεια χρησιμοποιήθηκε PrintOut στο επιλέξτε το ενεργό φύλλο και print αυτό.

• Τώρα απλά Τύπος το Κουμπί .

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

• Δώστε ένα όνομα και πατήστε Αποθήκευση .

Τότε θα λάβετε το τυπωμένο PDF .

Μπορείτε εύκολα να αλλάξετε το εκτυπωτής αν το χρειάζεστε.

• Κάντε κλικ στο στο Αρχείο δίπλα στο Αρχική σελίδα

• Στη συνέχεια επιλέξτε Εκτύπωση επιλογή και κάντε κλικ στο στο drop-down για να επιλέξετε ένα Εκτυπωτής .

Διαβάστε περισσότερα: Πώς να εκτυπώσετε όλα τα φύλλα στο Excel (3 μέθοδοι)

3. Εφαρμογή κώδικα VBA για τη δημιουργία κουμπιού εκτύπωσης για επιλεγμένα φύλλα στο Excel

Αν θέλετε να Εκτύπωση συγκεκριμένο επιλεγμένα φύλλα τότε είναι επίσης δυνατό να χρησιμοποιηθεί VBA .

Βήματα:

• Ακολουθήστε το πρώτο βήμα δύο βημάτων από το πρώτο τμήμα για να δημιουργήσετε το κουμπί και αναθέστε a μακροεντολή .
• Στη συνέχεια, γράψτε ένα Όνομα μακροεντολής και πατήστε Νέο .

Αμέσως μετά, ένα VBA θα ανοίξει το παράθυρο.

• Αργότερα, τύπος τα ακόλουθα κωδικοί σε αυτό-

 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub 

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

Ανάλυση κώδικα

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

• Τώρα επιλέξτε φύλλα και πατήστε το Κουμπί εκτύπωσης . επέλεξα δύο φύλλα.

• Δώστε ένα όνομα για το PDF και πατήστε Αποθήκευση .

Το PDF αρχείο έχει t wo pages για το δύο φύλλα .

Διαβάστε περισσότερα: Πώς να εκτυπώσετε συγκεκριμένα φύλλα χρησιμοποιώντας μακροεντολή VBA στο Excel (4 τρόποι)

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

• Πώς να εκτυπώσετε το φύλλο του Excel σε μέγεθος A4 (4 τρόποι)
• Πώς να διατηρήσετε την επικεφαλίδα στο Excel κατά την εκτύπωση (3 τρόποι)
• Excel VBA: Πώς να ορίσετε δυναμικά την περιοχή εκτύπωσης (7 τρόποι)
• Πώς να εκτυπώσετε το φύλλο του Excel με γραμμές (3 εύκολοι τρόποι)
• Πώς να εκτυπώσετε γράφημα στο Excel (5 τρόποι)

4. Ενσωματώστε το Excel VBA για να δημιουργήσετε κουμπί εκτύπωσης για συγκεκριμένο φύλλο με επιλεγμένη περιοχή

Εδώ, θα κάνουμε ένα Κουμπί εκτύπωσης στο εκτύπωση a επιλεγμένο εύρος από ένα συγκεκριμένο φύλλο .

Βήματα:

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

Αμέσως μετά, ένα VBA θα ανοίξει το παράθυρο.

• Τότε γράψτε τα ακόλουθα κωδικοί -

 Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub 

• Αργότερα, επιστρέψτε στο φύλλο σας.

Ανάλυση κώδικα

• Εδώ, δημιούργησα ένα Υπο διαδικασία, SpecificSheetnRange .
• Στη συνέχεια χρησιμοποιήθηκε Με δήλωση προς επιλέξτε a συγκεκριμένο
• Επόμενο, PrintArea = "B2:D11".PrintOut θα επιλέξτε το εύρος από το συγκεκριμένο φύλλο και θα Εκτύπωση αυτό.

• Τώρα απλά Τύπος το Κουμπί εκτύπωσης .

• Ορίστε ένα όνομα για το PDF και πατήστε Αποθήκευση .

Είναι το τυπωμένο συγκεκριμένο φύλλο.

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

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

Επίσης, μπορείτε να επιλέξτε ένα εύρος από το ενεργό φύλλο και μπορεί να κάνει ένα Κουμπί εκτύπωσης στο print χρησιμοποιώντας VBA .

Βήματα:

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

Αμέσως μετά, ένα VBA θα ανοίξει το παράθυρο.

• Στο VBA παράθυρο, γράψτε τα ακόλουθα κωδικοί -

 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub 

• Τότε γυρίστε πίσω στο δικό σας φύλλο .

Ανάλυση κώδικα

• Εδώ, δημιούργησα ένα Υπο διαδικασία, ActiveSheetnRange .
• Στη συνέχεια χρησιμοποιήθηκε Range("B2:D11").PrintOut στο επιλέξτε a εύρος και εκτύπωση.

• Πατήστε το Κουμπί εκτύπωσης .

• Δώστε ένα όνομα και πατήστε Αποθήκευση .

Τότε θα λάβετε το εκτυπωμένη σειρά .

Διαβάστε περισσότερα: Κουμπί Excel για την εκτύπωση συγκεκριμένων φύλλων (με εύκολα βήματα)

Συμπέρασμα

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