Come stampare più copie con numeri di pagina in sequenza?

Hai mai provato a stampare più copie di un foglio con numeri di pagina in sequenza? Ciò significa stampare 10 copie di un foglio e riempire la cella A1 nella prima copia con 1, nella seconda copia con 001 ... e nella decima copia con 2. In Excel, non esiste una funzionalità incorporata in grado di risolvere questo lavoro, ma in questo articolo, introduco un codice macro per aiutarti a stampare rapidamente più copie con il numero di pagina in sequenza in Excel.

Stampa copie con numeri diversi in base al codice VBA

Stampa copie con numeri diversi in base al codice VBA

Seguendo i passaggi seguenti per stampare più copie di un foglio con numeri di sequenza in base al codice VBA

1. Abilitare il foglio che si desidera stampare e premere i tasti Alt + F11 per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice sottostante nel file Moduli script. Vedi screenshot:

VBA: stampa copie con numeri di pagina in sequenza.

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 "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub

Note:: nel codice, A1 è la cella in cui vuoi inserire il numero di sequenza, 1 Per 10 indica di stampare 10 copie e "'00" e io è il formato della sequenza, puoi cambiarli secondo le tue necessità.

3. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo per ricordarti di stampare 10 copie. Clic OK per chiudere la finestra di dialogo, ogni copia stampata ha il proprio numero di sequenza.

I migliori strumenti per la produttività in ufficio

	Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
	Super ricerca: VLookup a criteri multipli  |   VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
	Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
	Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
	Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule   |  Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle   |  Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
	I 15 migliori set di strumenti:  12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze in Excel con Kutools for Excele sperimenta l'efficienza come mai prima d'ora. Kutools for Excel Offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Leggi di più... Download gratuito...

---

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 della stessa finestra, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Download gratuito...