Fecha de impresión
Saludos .quisiera saber como se haría un código en el cual se guardara el ultimo día de impresión de una página en una celda. Gracias pr adelantado
Respuesta de Elsa Matilde
1
Hay un evento para el documento que se llama BeforePrint y ahí se puede colocar la instrucción que guardará la fecha del sistema.
Alt+F11 para entrar al Editor, seleccioná ThisWorkbook, y buscá en declaraciones el evento mencionado. Entre Private Sub y End sub va lo siguiente:
Range("A1").Value = Now
Esto hará que guarde en la hoja activa la fecha, si llamás al menú Imprimir o das clic al botón de la impresora. Si la impresión se cancela, tendrás que borrar el contenido de la celda.
Alt+F11 para entrar al Editor, seleccioná ThisWorkbook, y buscá en declaraciones el evento mencionado. Entre Private Sub y End sub va lo siguiente:
Range("A1").Value = Now
Esto hará que guarde en la hoja activa la fecha, si llamás al menú Imprimir o das clic al botón de la impresora. Si la impresión se cancela, tendrás que borrar el contenido de la celda.
