LastSaved, LastPrinted

[Senso]

De eerst werkt, de tweede niet. Welke fout zit in de code?

Function LastSaved() As Date
  LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
Function LastPrinted() As Date
  LastPrinted = ActiveWorkbook.BuiltinDocumentProperties("Last Printed Time")
End Function

 

[lam201]

Deze

Activeworkbook.BuiltinDocumentProperties("last print date")

hier staan alle DocumentProperties eigenschappen
https://learn.microsoft.com/en-us/office/vba/api/excel.workbook.builtindocumentproperties

 

[HSV]

Last Print Date

 

[Senso]

Function LastSaved() As Date
  LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
Function LastPrinted() As Date
  LastPrinted = ActiveWorkbook.BuiltinDocumentProperties("Last Print Date")
End Function

Helaas printed werkt nog niet. Excel H&S 2007.

 

[snb]

Hiermee ben je echt geholpen:

Sub M_snb()
   On Error Resume Next

   For Each it In ThisWorkbook.BuiltinDocumentProperties
      MsgBox it.Name & vbLf & it.Value
   Next
End Sub

 

[lam201]

Helaas printed werkt nog niet. Excel H&S 2007.

Is het document uberhaupt wel eens geprint?
anders krijg je inderdaad een foutmelding.
printvoorbeeld (Ctrl + p) werkt ook, volgens mij.

 

[Senso]

@snb
Heel mooi, maar dan kan ik toch de datum/tijd niet zien op/in een cel van een document.

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
Range("A3").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Print Time"), "short date")
End Sub

Range A3 geeft fout 5 ongeldige procedure-aanroep

short date zou eigenlijk iets van dd/mm/yy hh:mm moeten zijn, maar de datum klopt dan niets van (created)

Alle sheets zijn een keer geprint.

 

[snb]

Kijk nog eens naar je beginvraag.
Daar staat toch niets van een cel ???
Analyseer stap-voor-stap
Draai eerst mijn code en kijk of er iets verschijnt bij last printed.
Zo niet, dan hoef je niet verder te zoeken en heeft @lam201 gelijk.

 

[HSV]

Ook weer gewoon Time invullen i.p.v. Date.

 

[snb]

Ter lering:

Sub M_snb()
   MsgBox FormatDateTime(Time, 1)
   MsgBox FormatDateTime(Time, 3)
   MsgBox FormatDateTime(Time, 4)
End Sub

 

[Senso]

@snb
de tekst last printed komt niet naar voren en staat er niet.

Ik heb een sheet/pagina afgedrukt en Onder Eigenschappen > Statistieken Afgedrukt: staat niets en is helemaal leeg.

Gemaakt > Gewijzigd > Geopend staan wel de data.

 

[snb]

Begin dan maar eens het bestand af te drukken.
Draai de code daarna opnieuw.

En hier gaat het dan pas ook goed met:

 MsgBox ThisWorkbook.BuiltinDocumentProperties("Last print date")

 

[Senso]

Ik heb honderd keer gedaan wat er geschreven staat maar het lukt niet. Zo ben je vier uur bezig en zonder resultaat. Ik denk dat de optie ontbreekt in Excel 2007 H&S. Anders bewijs het maar met een document dat jullie gemaakt en geprint hebben dan kan ik kijken of ik fout zit.

Ik kan mijn document niet plaatsen omdat er veel privacygegevens in staan.

 

[snb]

Ik kan mijn document niet plaatsen omdat er veel privacygegevens in staan.

Sjonge.
Jij kunt ieder bestand met willekeurig welke inhoud maken, afdrukken, van mijn laastste macrosuggestie voorzien, testen en hier plaatsen.
Wie heeft er nu een vraag jij of wij ?

 

[Senso]

Bijlage:Bekijk bijlage Test_Sjonge.xlsm

 

[snb]

Probeer deze dan maar eens: