1. Abilita la scheda Developer:
* Vai su File> Opzioni> Personalizza Ribbon .
* Controlla la casella accanto allo sviluppatore e fai clic su ok .
2. Inserisci codice VBA:
* Fai clic su sviluppatore Scheda e selezionare Visual Basic .
* Nel progetto finestra, fare clic con il tasto destro su questo libro di lavoro e scegli insert> modulo .
* Incolla il seguente codice nel modulo:
`` `VBA
Subshamsheet Sub stampaIvicual ()
Dim ws come foglio di lavoro
'Loop attraverso ogni foglio nella cartella di lavoro
Per ogni ws in questo libro di lavoro.
'Stampa il foglio corrente
Copie Ws.printout:=1, raccolta:=true
'Aspetta che la stampa finisca (opzionale)
Applicazione.wait ora + timevalue ("00:00:05") 'Aspetta 5 secondi
Next Ws
Fine sub
`` `
3. Esegui la macro:
* Chiudi Visual Basic Editor .
* Torna allo sviluppatore Scheda e fare clic su macros .
* Seleziona PrintSheetSindividualmente Macro e clic su Esegui .
Spiegazione:
* `Sub PrintSheetSindividual ()`: Definisce il nome macro.
* `dim ws come foglio di lavoro ': Dichiara una variabile per rappresentare ogni foglio di lavoro.
* `Per ogni ws in questo libro di lavoro. Loops attraverso ogni foglio della cartella di lavoro.
* `Ws.printOut Copie:=1, raccolto:=true`: Stampa il foglio di lavoro corrente (usando `ws`), con una copia e pagine raccolte.
* `Applicazione.Wait Now + TimeValue (" 00:00:05 ")`: Questa linea opzionale attende 5 secondi dopo la stampa di ciascun foglio per garantire che il processo di stampa sia completo prima di passare al foglio successivo. Regola il tempo di attesa secondo necessità.
* `Next Ws`: Termina il ciclo e continua al foglio successivo.
Note importanti:
* Il codice presuppone che tu abbia una configurazione della stampante predefinita. In caso contrario, è possibile specificare la stampante utilizzando `ws.printout stampante:=" yourprintername "`.
* The `wait` L'istruzione può essere utile per prevenire errori se la stampa richiede un periodo di tempo significativo. Regola il tempo di attesa secondo necessità.
Alternativa:usando un metodo Loop e `Printout` (no VBA):
Mentre questo metodo non stampano ogni foglio individualmente, è possibile utilizzare un loop in una formula di cella per attivare il processo di stampa:
1. In una cella, inserisci la seguente formula:
`` `Excel
=If (row () <=sheets (), "stampa foglio" &row (), "")
`` `
2. Copia questa formula al numero di fogli nella tua cartella di lavoro.
3. Utilizzare i seguenti passaggi per stampare ogni foglio utilizzando `printout` metodo:
* Vai su file> stampa .
* Nell'intervallo di stampa A discesa, selezionare Selezione .
* Fare clic su Stampa .
Ciò attiverà il processo di stampa per ciascun foglio mentre si copia la formula giù dalla colonna.
Scegli il metodo che si adatta meglio alle tue esigenze e preferenze.
software © www.354353.com