FECHA IMPRESION

10/11/2008 - 11:48 por Jose antonio | Informe spam
Necesito que se quede grabada la fecha de impresión en un documento de excel.
He estado buscando comentarios al respecto y he visto que hay una función que
es: Function LastSaved()
LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Print Date
").Value
End Function .
Pero no sé aplicarla. La introducto tal cual en la barra de funiones y me
dice que es errónea. Alguien me podría decir cuales son los pasos a seguir
para introducirla. Gracias de antemano.
 

Leer las respuestas

#1 Héctor Miguel
10/11/2008 - 23:32 | Informe spam
hola, Jose antonio!

Necesito que se quede grabada la fecha de impresion en un documento de excel.
He estado buscando comentarios al respecto y he visto que hay una funcion que es:
Function LastSaved()
LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Print Date").Value
End Function .
Pero no se aplicarla. La introducto tal cual en la barra de funiones y me dice que es erronea.
Alguien me podria decir cuales son los pasos a seguir para introducirla...



este tipo de instrucciones se escriben en modulos de codigo en el editor de vba (p.e.)

- abre el editor de vba (atajo de teclado: Alt + F11)
- agrega un modulo de codigo estandar (menu: insertar / modulo)
- copia/pega (o escribe) lo siguiente:

Function Ultima_impresion() As String
Ultima_impresion = Format( _
ThisWorkbook.BuiltinDocumentProperties("last print date"), _
"d-mmm-yy h:mm:ss am/pm")
End Function

- regresa a excel (atajos: alt + F4 o: alt + Q etc.)

- en la celda donde requieras el dato de la ultima fecha de impresion usas la funcion anterior (igual que las integradas)
=Ultima_impresion()

si cualquier duda (o informacion adicional)... coments ?
saludos,
hector.

Preguntas similares