Quando fai clic sullo strumento Stampa, Word stampa automaticamente una singola copia del documento. Lo fa indipendentemente dal numero di copie che hai scelto in precedenza di stampare nella finestra di dialogo Stampa. Questo non è un comportamento divertente unico per lo strumento di stampa. Infatti, ogni volta che rivisualizzi la finestra di dialogo Stampa dovresti notare che l’impostazione Numero di copie è sempre ripristinata a 1.

La parola sembra sempre soffrire di perdita di memoria a breve termine in quest’area; l’impostazione Numero di copie semplicemente non è “persistente” e deve essere impostata ogni volta che si desidera stampare. Questo può essere fastidioso, soprattutto se si desidera stampare lo stesso numero di copie in modo coerente.

Ci sono due modi in cui è possibile avvicinarsi a una soluzione. Innanzitutto, puoi creare una macro che stampa, utilizzando la stampante attualmente selezionata, un numero specifico di copie. Questo è un ottimo approccio se ti ritrovi a stampare costantemente un certo numero di copie. La seguente macro, ad esempio, stamperà quattro copie del documento corrente:

Sub PrintFour()

ActiveDocument.PrintOut Copies:=4 End Sub

Se si assegna questa macro a un nuovo pulsante della barra degli strumenti o a un tasto di scelta rapida, un semplice clic o una combinazione di tasti stamperà il numero di copie desiderato.

La seconda soluzione è più complessa, ma potrebbe essere più flessibile a lungo termine. Questa soluzione prevede l’utilizzo di una proprietà del documento personalizzata per mantenere, documento per documento, il numero di copie stampate per ultime. Questa impostazione viene utilizzata come numero di copie da stampare, fornendo così un numero permanente di copie per ogni documento. Dovrebbero essere utilizzate le seguenti due macro:

Public Sub FilePrint()

Dim bExists As Boolean     Dim MyPrint As Dialog

' ensure our doc variable exists     bExists = False     For Each varItem In ActiveDocument.CustomDocumentProperties         If varItem.Name = "Copies" Then             bExists = True             Exit For         End If     Next varItem          ' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.CustomDocumentProperties.Add _           Name:="Copies", LinkToContent:=False, _           Type:=msoPropertyTypeNumber, Value:=1     End If

Set MyPrint = Dialogs(wdDialogFilePrint)

With MyPrint         .NumCopies = ActiveDocument.CustomDocumentProperties("Copies")

.Show     End With

ActiveDocument.CustomDocumentProperties("Copies") = _       MyPrint.NumCopies

Set MyPrint = Nothing End Sub
Public Sub FilePrintDefault()

Dim bExists As Boolean

' ensure our doc variable exists     bExists = False     For Each varItem In ActiveDocument.CustomDocumentProperties         If varItem.Name = "Copies" Then             bExists = True             Exit For         End If     Next varItem

' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.CustomDocumentProperties.Add _           Name:="Copies", LinkToContent:=False, _           Type:=msoPropertyTypeNumber, Value:=1     End If

ActiveDocument.PrintOut Copies:= _       CInt(ActiveDocument.CustomDocumentProperties("Copies"))

End Sub

Queste macro hanno nomi speciali, FilePrint e FilePrintDefault. Questi sono i nomi assegnati ai comandi interni di Word che visualizzano la finestra di dialogo Stampa (FilePrint) e stampano il documento attivo (FilePrintDefault) tramite l’utilizzo dello strumento Stampa sulla barra degli strumenti.

Quando si utilizzano queste macro, con i nomi visualizzati, si sostituiscono essenzialmente i comandi interni di Word.

Nel caso della nuova macro FilePrint, le proprietà del documento vengono controllate per vedere se ce n’è una denominata Copies. In caso contrario, viene creata una proprietà del documento con quel nome e impostata sul valore 1.

Quindi, viene visualizzata la finestra di dialogo Stampa e il valore Numero di copie viene impostato in base alla proprietà del documento personalizzato. In quanto utente, puoi quindi modificare l’impostazione del numero di copie come desideri. Quando la finestra di dialogo viene chiusa (stampando o meno), la proprietà del documento Copie viene aggiornata in base all’impostazione del numero di copie.

La macro FilePrintDefault, d’altra parte, verifica solo che la proprietà del documento Copies esista e imposta il numero di copie da stampare in base al suo valore. Se la proprietà non esiste, viene creata e impostata su un valore di 1.

_Nota: _

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

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

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1313) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Ricordando le copie da stampare.