Come stampare più copie con numeri di pagina sequenziali?
Vi è mai capitato di dover stampare più copie dello stesso foglio di lavoro, ma con l’esigenza di contrassegnare ciascuna con un numero di pagina univoco e sequenziale? Immaginate, per esempio, di aver bisogno di 10 copie di un modulo in cui la cella A1 riporti 001 sulla prima stampa, 002 sulla seconda e così via, fino a 010 sull’ultima. Questo metodo si rivela particolarmente utile per creare fatture numerate, biglietti, moduli d’ordine o qualsiasi altro lotto in cui il tracciamento delle singole copie è essenziale per organizzazione o controllo.
Purtroppo, Excel non offre un’impostazione integrata per stampare automaticamente più copie con numeri incrementali in una cella specificata. Modificare manualmente il foglio prima di ogni stampa risulta poco pratico, soprattutto quando si devono gestire numerose copie. Tuttavia, grazie a una semplice macro VBA, è possibile automatizzare l’intero processo: risparmia tempo, riduci gli errori manuali e assicurati che ogni copia rechi un numero univoco, esattamente come richiesto.
Stampa Copie con numeri diversi tramite codice VBA
Utilizzare formule di Excel e stampa manuale
Stampa Copie con numeri diversi tramite codice VBA
Stampa Copie con numeri diversi tramite codice VBAQuesto metodo sfrutta una macro VBA per stampare più copie di un foglio di lavoro, inserendo automaticamente numeri sequenziali in una cella specificata a ogni stampa.
Seguire questi passaggi per creare ed eseguire rapidamente la macro:
1. Innanzitutto, attiva il foglio di lavoro che desideri stampare. Poi premi Alt + F11 per aprire la finestra dell’editor Microsoft Visual Basic for Applications (VBA).
2. Nell’editor VBA, fare clic su Inserisci > Modulo per aggiungere un nuovo modulo. Copiare e incollare il seguente codice nella finestra del modulo. (Fare riferimento all’immagine per una guida visiva.)
VBA: Stampa copie con numeri di pagina sequenziali.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub
Note e suggerimenti sui parametri:
- Nel codice, il riferimento A1 indica la cella in cui apparirà il numero di sequenza. Se si preferisce un’altra cella, ad esempio B2, aggiornare il riferimento di conseguenza.
- 1 To10 specifica il numero di copie da stampare (in questo esempio, 10). Puoi sostituire 10 con qualsiasi altro numero intero positivo, a seconda delle tue esigenze.
- «'00» & I formatta il numero di sequenza in modo che venga visualizzato come un numero a tre cifre con zeri iniziali (ad esempio, 001, 002, 003). Se desideri un formato diverso — ad esempio partendo da 100 o senza zeri iniziali — modifica opportunamente la stringa.
- Prima di eseguire la macro, assicurati che il foglio di lavoro sia pronto e privo di dati nella cella di destinazione, per evitare sovrascritture indesiderate. Ti consigliamo di salvare la cartella di lavoro prima di procedere, poiché le azioni delle macro non sono annullabili.
3. Con il foglio di lavoro ancora attivo, premere F5 oppure il pulsante Esegui all’interno dell’editor VBA per eseguire il codice. Apparirà una finestra di dialogo con un messaggio tipo: «Verranno stampate 10 copie con numeri consecutivi». Fare clic su OK per procedere: la macro scorrerà automaticamente ogni numero, inserirà la sequenza nella cella designata e stamperà il foglio. Ogni stampa sarà numerata in modo univoco in base alle impostazioni definite.
Utilizzare formule di Excel e stampa manuale
Quando servono solo poche copie o si preferisce evitare l’uso di macro, puoi sfruttare il quadratino di riempimento di Excel per generare numeri sequenziali e stampare manualmente ogni riga. Questo metodo è ideale per assegnare una numerazione univoca a etichette, badge o moduli, purché il numero di copie sia facilmente gestibile.
1. In una nuova colonna (ad esempio, la colonna A), inserisci il numero di sequenza iniziale nella prima cella, ad esempio 001. Puoi farlo digitando la seguente formula nella cella A1:
=TEXT(ROW(A1),"000")2. Trascina il quadratino di riempimento verso il basso per replicare la formula in tutte le copie che desideri stampare (ad esempio, fino alla riga 10 per ottenere 10 copie). Ogni cella mostrerà il numero sequenziale successivo con zeri iniziali.
3. Copia l’intera riga o il set di dati in un nuovo foglio per ogni copia richiesta e usa la funzione Stampa di Excel per stampare i fogli singolarmente. Questo metodo manuale è perfetto per piccoli lotti e ti offre una maggiore conferma visiva prima della stampa.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi