Ciao!
La tua stampante predefinita si trova nell'angolo più lontano dell'ufficio?
Vuoi stampare il tuo foglio dalla stampante al tuo fianco?
Puoi cambiarlo nella sezione di dialogo di stampa ma sei troppo pigro per farlo anche tu?
Beh, la maggior parte delle persone inventive sono pigre, come te e me.
Non preoccuparti. Ti ho preso. Facciamolo usando VBA per una volta per tutte…
Di seguito è riportato il codice che cambia la stampante predefinita con la stampante scelta e reimposta la stampante originale sulla stampante predefinita.
| Sub Change_Default_Printer() Imposta la mia rete = CreateObject ("WScript.network") mynetwork.setdefaultprinter "Il nome della tua stampante" 'Scrivi il nome della tua stampante qui ActiveSheet.PrintOut mynetwork.setdefaultprinter "Stampante_predefinita_originale" ‘ripristina la stampante originale sui valori predefiniti" Fine sottotitolo |
Risolviamo ogni riga.
- Set mynetwork = CreateObject("WScript.network") : Qui abbiamo creato un oggetto “la mia rete" di WScript.Network usando VBA CreaOggetto() funzione. Internamente restituisce”IWshNetwork2” tipo di oggetto.
WshNetwork2 dà accesso alla rete di computer. Possiamo giocare con tutti i dispositivi collegati al computer. Per ora utilizzeremo le stampanti. - mynetwork.setdefaultprinter "Il nome della tua stampante": In questa linea, abbiamo usato per excel vba seleziona stampante stampante predefinita proprietà di WshNetwork2oggetto viene utilizzato per selezionare la stampante predefinita a tua scelta. Scrivi il nome della stampante tra virgolette (" ").
- ActiveSheet.Stampa: Questo comando stampa il documento dalla stampante modificata. Ho stampato il foglio attivo qui. Puoi dare un nome a qualsiasi foglio per stamparlo immediatamente.
- mynetwork.setdefaultprinter "Stampante_predefinita_originale": Questa riga riporta la stampante originale ai valori predefiniti. Questo è facoltativo. Se non vuoi cambiare, salta questa riga. Oppure puoi impostarlo su un'altra stampante prima che il codice termini.
Allora, com'è stato? Ha funzionato per te? È stato difficile? Fatemi sapere nei commenti. Resta sintonizzato per lezioni più innovative e facili. Ciao.
Articoli popolari:
50 scorciatoie Excel per aumentare la produttività
Come utilizzare la funzione CERCA.VERT in Excel
Come utilizzare la funzione CONTA.SE in Excel 2016
Come utilizzare la funzione SOMMA.SE in Excel