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
1 Respuesta
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.
