Lorsque vous cliquez sur l’outil Imprimer, Word imprime automatiquement une seule copie de votre document. Il le fait quel que soit le nombre de copies que vous avez précédemment choisi d’imprimer dans la boîte de dialogue Imprimer. Ce n’est pas un comportement amusant propre à l’outil d’impression. En effet, chaque fois que vous réaffichez la boîte de dialogue Imprimer, vous devez remarquer que le paramètre Nombre de copies est toujours réinitialisé à 1.

Word semble toujours souffrir d’une perte de mémoire à court terme dans ce domaine; le paramètre Nombre de copies n’est tout simplement pas «persistant» et doit être défini à chaque fois que vous souhaitez imprimer. Cela peut être gênant, en particulier si vous souhaitez imprimer le même nombre de copies sur une base cohérente.

Une solution peut être abordée de deux manières. Tout d’abord, vous pouvez créer une macro qui imprime, à l’aide de l’imprimante actuellement sélectionnée, un nombre spécifique de copies. C’est une excellente approche si vous vous retrouvez à imprimer régulièrement un certain nombre de copies. La macro suivante, par exemple, imprimera quatre copies du document actuel:

Sub PrintFour()

ActiveDocument.PrintOut Copies:=4 End Sub

Si vous attribuez cette macro au lien: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Quick Access Toolbar] ou à une touche de raccourci, un simple clic ou une combinaison de touches imprimera le nombre de copies souhaité.

La deuxième solution est plus complexe, mais peut être plus flexible à long terme. Cette solution implique l’utilisation d’une propriété de document personnalisée pour maintenir, document par document, le nombre de copies imprimées en dernier. Ce paramètre est utilisé comme le nombre de copies à imprimer, fournissant ainsi un nombre permanent de copies pour chaque document. Les deux macros suivantes doivent être utilisées:

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

Ces macros ont des noms spéciaux, FilePrint et FilePrintDefault. Ce sont les noms attribués aux commandes Word internes qui affichent la boîte de dialogue Imprimer (FilePrint) et impriment le document actif (FilePrintDefault) via l’utilisation de l’outil Imprimer dans la barre d’outils.

Lorsque vous utilisez ces macros, avec les noms affichés, vous remplacez essentiellement les commandes Word internes.

Dans le cas de la nouvelle macro FilePrint, les propriétés du document sont vérifiées pour voir s’il y en a une nommée Copies. S’il n’y en a pas, une propriété de document portant ce nom est créée et définie sur la valeur 1.

Ensuite, la boîte de dialogue Imprimer s’affiche et la valeur Nombre de copies est définie en fonction de la propriété de document personnalisé. En tant qu’utilisateur, vous pouvez ensuite modifier le paramètre Nombre de copies, comme vous le souhaitez. Lorsque la boîte de dialogue est fermée (soit par impression ou non), la propriété de document Copies est mise à jour en fonction du paramètre Nombre de copies.

La macro FilePrintDefault, en revanche, vérifie uniquement que la propriété de document Copies existe et définit le nombre de copies à imprimer en fonction de sa valeur. Si la propriété n’existe pas, elle est créée et définie sur la valeur 1.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (10603) s’applique à Microsoft Word 2007, 2010 et 2013.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici:

link: / word-Remembering_Copies_to_Print [Mémorisation des copies à imprimer].