Opgelost 1 werkblad opslaan als PDF tijdens sluiten bestand

[harrybrinkman]

Ik heb een bestand, bestaande uit zo'n 15 werkbladen. Ik zoek een manier om 1 specifiek werkblad (blad1) als PDF (met een bestandsnaam bestaande uit naam-datum-tijdstip) op te laten slaan tijdens het sluiten van het bestand. (workbookclose)
Hierdoor zou ik dus telkens als ik het originele bestand opsla/sluit, een copie van blad1 in PDF moeten krijgen (in dezelfde map als het werkblad.)

Is zoiets uberhaupt mogelijk?

 

[edmoor]

Dat kan met dit in de ThisWorkbook sectie:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Blad1").ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & Format(Now, "DD-MM-YYYY_HHMMSS")
End Sub

 

[snb]

Iets korter

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Sheets(1).ExportAsFixedFormat 0, replace(ThisWorkbook.fullname,".",now & ".")
End Sub