Programación incremental digital

Estimado, esto requiere programación VBA.

Abra su archivo de Excel, presione "Alt F11" para abrir la ventana de edición de VBA, luego haga doble clic en ThisWorkbook a la izquierda y pegue el siguiente código en el espacio en blanco a la derecha. Cierre la ventana de VBA.

Cada vez que imprima, si el nombre de la hoja actual que se está imprimiendo es "Hoja1", agregará 1 al número de la celda A1 antes de imprimir.

¿Privado? ¿Sub? Workbook_BeforePrint(Cancelar?como?Booleano)

¿Si? Hoja Activa. ¿nombre? =?" Hoja1 "? Entonces

¿Rango("A1 ")? =?Rango("A1 ")? ?1

¿Fin? Si

¿Finalizar? Submarino