¿Cómo imprimir varias copias con números de página de secuencia?
¿Alguna vez ha intentado imprimir varias copias de una hoja con números de página de secuencia? Eso significa imprimir 10 copias de una hoja y llenar la celda A1 en la primera copia con 1, en la segunda copia con 001… y en la décima copia con 2. En Excel, no hay una función incorporada que pueda resolver este trabajo, pero en este artículo, presento un código de macro para ayudarlo a imprimir rápidamente varias copias con el número de página de secuencia en Excel.
Imprima copias con diferentes números por código VBA
Imprima copias con diferentes números por código VBA
Siga los pasos a continuación para imprimir varias copias de una hoja con números de secuencia por código VBA
1. Habilite la hoja que desea imprimir y presione las teclas Alt + F11 para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código siguiente en el Módulo guión. Ver captura de pantalla:
VBA: imprime copias con números de página de secuencia.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub
Note: en el código, A1 es la celda en la que desea colocar el número de secuencia, Para 1 10 indica imprimir 10 copias, y "'00" y yo es el formato de secuencia, puede cambiarlos cuando lo necesite.
3. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo para recordarle que debe imprimir 10 copias. Hacer clic OK para cerrar el cuadro de diálogo, cada copia impresa tiene su propio número de secuencia.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!