Bijgewerkte datum invoegen in bestand

[antoonk]

Bij het afdrukken wil ik graag de datum zien van de laatste keer dat een bestand is gewijzigd.

En als het mogelijk is ook de datum wanneer het document voor het eerst is aangemaakt.

Ik zie bij de instellingen van afdrukvoorbeeld alleen een mogelijkheid om de datum van vandaag te laten zien.

dank voor elke reactie!
groetn antoon

 

[Jan van Asseldonk]

Plaats bijgaande code in ThisWorkbook.
Vóór het afdrukken wprden alle standaard documenteigenschappen op blad2 geplaatst. (Werkt al bij printvoorbeeld, dus je kunt ze vooraf bekijken.)
Kijk welke gegevens je wilt gebruiken en laat alleen die middels de macro in een cel plaatsen net voor het afdrukken.

De code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next
rw = 1
Worksheets("Blad2").Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
Cells(rw, 3).Formula = p.Formula

rw = rw + 1
Next

End Sub

Eventueel kun je ook nog gebruik maken van CustomDocumentProperties.
Kijk hiervoor even in de help van VBA.