Tommaso sta cercando di creare un codice macro che controllerà la quantità di copie da stampare, in base al valore immesso in una cella. Ha creato un modulo di input da utilizzare per il personale addetto alle spedizioni che stampa le etichette del contenuto del pacco. Gli piacerebbe poter inserire nella cella B11 il numero di etichette che devono essere stampate e poi far stampare quel numero di etichette.
Questo è relativamente facile da fare, a seconda di cosa vuoi stampare. Se desideri stampare solo il contenuto del foglio di lavoro attivo, puoi utilizzare un codice simile al seguente:
iNumCopies = Range("B11").Value
If iNumCopies < 1 Then iNumCopies = 1
ActiveSheet.PrintOut Copies:=iNumCopies
Se non vuoi stampare l’intero foglio di lavoro, devi modificare solo leggermente l’istruzione PrintOut. Ad esempio, l’esempio seguente presuppone che l’etichetta da stampare sia nell’intervallo A1:A5:
Set MyRange = Range("A1:A5")
iNumCopies = Range("B11").Value
If iNumCopies < 1 Then iNumCopies = 1
MyRange.PrintOut Copies:=iNumCopies
