Henry vorrebbe che una cella contenga un numero che aumenta ogni volta che viene stampata una copia del foglio di lavoro. Quindi, se la cella contiene il numero 9 e stampa 13 copie del foglio di lavoro, ogni copia conterrà, in quella cella, i numeri 9, 10, 11 e fino al 21.

Come puoi immaginare, è meglio farlo con una macro. Tutto ciò che deve essere fatto è stampare il foglio di lavoro quante volte si desidera, incrementando il valore della cella dopo ogni stampa. In questo caso, presumo che la cella da incrementare sia B7. La seguente macro gestirà il processo:

Sub PrintNumberedCopies()

Dim iCopies As Integer     Dim J As Integer     Dim r As Range

' Specify the cell to modify     Set r = Range("B7")



' Get the number of copies.

iCopies = Val(InputBox("Number of copies to print:"))



If iCopies > 0 Then         ' Loop iCopies times, printing once per loop         For J = 1 to iCopies             ActiveSheet.PrintOut             r.Value = r.Value + 1         Next J     End If End Sub

Si noti che la macro chiede all’utente quante copie stampare, quindi procede alla stampa di ciascuna, individualmente. Dopo ogni stampa, incrementa il valore memorizzato nella cella B7. Se l’utente inserisce qualcosa che non si traduce in un numero di copie, non viene stampato nulla.

Ricorda che se desideri che il numero del valore in B7 sia sempre aggiornato, dovrai salvare la cartella di lavoro qualche tempo dopo l’ultima stampa. Inoltre, se si stampa utilizzando un metodo diverso da questa macro, il valore in B7 non rifletterà il numero di copie effettive stampate.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (12135) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.