¿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
Impulsa al máximo tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para potenciar la productividad y ahorrar tiempo.Haz clic aquí para obtener la función que más necesitas...
Office Tab aporta una interfaz de pestañas a Office y hace tu trabajo mucho más sencillo
- 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 vez de en nuevas ventanas.
- ¡Aumenta tu productividad hasta un50% y reduce cientos de clics de ratón cada día!