Πώς να αλλάξετε τον προεπιλεγμένο εκτυπωτή χρησιμοποιώντας το VBA στο Microsoft Excel 2016

Γεια σου!

Ο προεπιλεγμένος εκτυπωτής σας βρίσκεται στη μακρινή γωνία του γραφείου;

Θέλετε να εκτυπώσετε το φύλλο σας από τον εκτυπωτή δίπλα σας;

Μπορείτε να το αλλάξετε στην ενότητα διαλόγου εκτύπωσης, αλλά είστε πολύ τεμπέλης για να το κάνετε επίσης;

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

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

Sub Change_Default_Printer ()
Ορισμός mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Το όνομα του εκτυπωτή σας" 'γράφω το όνομα των εκτυπωτών σας εδώ
ActiveSheet.PrintOut
mynetwork.setdefaultprinter "Original_Default_Printer" ‘επαναφέρετε τον αρχικό εκτυπωτή σας στην προεπιλογή »
Τέλος υπο

Ας σπάσουμε κάθε γραμμή.

Ορισμός mynetwork = CreateObject ("WScript.network"): Εδώ έχουμε δημιουργήσει ένα αντικείμενο "το δίκτυό μου”Του WScript.Networks χρησιμοποιώντας VBA CreateObject () λειτουργία. Εσωτερικά επιστρέφει "IWshNetwork2 " είδος αντικειμένου.
WshNetwork2 δίνει πρόσβαση στο δίκτυο υπολογιστών. Μπορούμε να παίξουμε με όλες τις συσκευές που είναι συνδεδεμένες στον υπολογιστή. Προς το παρόν, θα χρησιμοποιήσουμε εκτυπωτές.
mynetwork.setdefaultprinter "Το όνομα του εκτυπωτή σας": Σε αυτή τη γραμμή, συνηθίζαμε excel vba επιλέξτε εκτυπωτή. προεπιλεγμένος εκτυπωτής Ιδιοκτησία του WshNetwork2Το αντικείμενο χρησιμοποιείται για την επιλογή του προεπιλεγμένου εκτυπωτή της επιλογής σας. Γράψτε το όνομα του εκτυπωτή σας μεταξύ διπλών εισαγωγικών ("").
ActiveSheet.PrintOut: Αυτή η εντολή εκτυπώνει το έγγραφό σας από τον αλλαγμένο εκτυπωτή. Έχω εκτυπώσει το ενεργό φύλλο εδώ. Μπορείτε να δώσετε οποιοδήποτε όνομα φύλλου για να το εκτυπώσετε αμέσως.
mynetwork.setdefaultprinter "Original_Default_Printer": Αυτή η γραμμή επαναφέρει τον αρχικό εκτυπωτή σας στην προεπιλογή. Αυτό είναι προαιρετικό. Εάν δεν θέλετε να αλλάξετε, παραλείψτε αυτήν τη γραμμή. Or μπορείτε να το ρυθμίσετε σε κάποιον άλλο εκτυπωτή πριν τελειώσει ο κωδικός σας.