Al hacer clic en la herramienta Imprimir, Word imprime automáticamente una única copia de su documento. Lo hace independientemente del número de copias que eligió imprimir previamente en el cuadro de diálogo Imprimir. Este no es un comportamiento divertido exclusivo de la herramienta Imprimir. De hecho, cada vez que vuelva a mostrar el cuadro de diálogo Imprimir, debería notar que la configuración de Número de copias siempre se restablece a 1.

Word siempre parece sufrir una pérdida de memoria a corto plazo en esta área; la configuración de Número de copias simplemente no es «persistente» y debe configurarse cada vez que desee imprimir. Esto puede resultar molesto, sobre todo si desea imprimir el mismo número de copias de forma constante.

Hay dos formas de abordar una solución. Primero, puede crear una macro que imprima, usando la impresora seleccionada actualmente, un número específico de copias. Este es un gran enfoque si se encuentra imprimiendo constantemente una cierta cantidad de copias. La siguiente macro, por ejemplo, imprimirá cuatro copias del documento actual:

Sub PrintFour()

ActiveDocument.PrintOut Copies:=4 End Sub

Si asigna esta macro al enlace: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Quick Access_Toolbar] oa una tecla de acceso directo, entonces un simple clic o combinación de teclas imprimirá el número deseado de copias.

La segunda solución es más complicada, pero puede ser más flexible a largo plazo. Esta solución implica el uso de una propiedad de documento personalizada para mantener, documento por documento, el número de copias impresas por última vez. Esta configuración se utiliza como el número de copias a imprimir, proporcionando así un número constante de copias para cada documento. Deben utilizarse las siguientes dos macros:

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

Estas macros tienen nombres especiales, FilePrint y FilePrintDefault. Estos son los nombres asignados a los comandos internos de Word que muestran el cuadro de diálogo Imprimir (FilePrint) e imprimen el documento activo (FilePrintDefault) mediante el uso de la herramienta Imprimir en la barra de herramientas.

Cuando usa estas macros, con los nombres mostrados, esencialmente reemplaza los comandos internos de Word.

En el caso de la nueva macro FilePrint, se comprueban las propiedades del documento para ver si hay una llamada Copias. Si no lo hay, se crea una propiedad de documento con ese nombre y se establece en el valor 1.

Luego, se muestra el cuadro de diálogo Imprimir y el valor Número de copias se establece según la propiedad del documento personalizado. Usted, como usuario, puede cambiar la configuración de Número de copias, como desee. Cuando se cierra el cuadro de diálogo (ya sea imprimiendo o no), la propiedad del documento Copias se actualiza a la configuración de Número de copias.

La macro FilePrintDefault, por otro lado, solo verifica para asegurarse de que existe la propiedad del documento Copias y establece el número de copias para imprimir en función de su valor. Si la propiedad no existe, se crea y se establece en un valor de 1.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (10603) se aplica a Microsoft Word 2007, 2010 y 2013.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí:

link: / word-Remembering_Copies_to_Print [Recordando copias para imprimir].