¿Cómo contar el número de páginas impresas en una hoja?
Antes de imprimir una hoja, es posible que desee conocer el número total de páginas impresas con antelación. En este artículo, le presentaré algunos trucos para hacerlo.
Contar el número de páginas impresas mediante la función Imprimir
Contar el número de páginas impresas mediante código VBA
Contar el número de páginas impresas mediante Kutools para Excel
Contar el número de páginas impresas mediante la función Imprimir
Para contar el número de páginas impresas antes de imprimir, puede ir a Imprimir para ver el número de páginas.
Active la hoja en la que desea contar las páginas impresas y haga clic en Archivo > Imprimir, luego podrá ver el número de páginas impresas.
Contar el número de páginas impresas mediante código VBA
También hay un código VBA que puede indicarle el número de páginas impresas en una hoja.
1. Active la hoja que desea contar, presione las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo, luego pegue el siguiente código en el Módulo.
VBA: Contar el número de páginas impresas en una hoja
Sub ShowMe()
MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
" pages will be printed."
End Sub
3. Presione la tecla F5 para ejecutar el código, y luego aparecerá un cuadro de diálogo que le indicará el número de páginas impresas. Ver captura de pantalla:
Contar el número de páginas impresas mediante Kutools para Excel
Si tiene Kutools para Excel, puede aplicar su utilidad Imprimir páginas especificadas y luego ver las páginas impresas de la hoja activa.
Después de instalar Kutools para Excel, realice los siguientes pasos:(¡Descarga gratuita de Kutools para Excel ahora! )
Active la hoja cuyas páginas desea contar, haga clic en Kutools Plus > Imprimir > Imprimir páginas especificadas, y luego vea el número de páginas en el cuadro de diálogo emergente. Ver captura de pantalla:
Demostración
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!