Goedendag,
Door middel van 2 knoppen sla ik .xls en .pdf in een map op. Na dat ik hem opsla kan ik de PDF bestand niet openen. Ik krijg de volgende melding:
Error (PDF Structure 40) invalid file format
Wat is hier onderstaande code aan de hand?
Door middel van 2 knoppen sla ik .xls en .pdf in een map op. Na dat ik hem opsla kan ik de PDF bestand niet openen. Ik krijg de volgende melding:
Error (PDF Structure 40) invalid file format
Wat is hier onderstaande code aan de hand?
Code:
Sub PDF()
Dim strFilename, strDirname, strPathname, strDefpath As String
On Error Resume Next ' If directory exist goto next line
strDirname = Range("G4").Value ' New directory name
strFilename = Range("G4") & Range("M7") & Range("M5") & Range("M6") & Range("D11").Value 'New file name
strDefpath = "C:\Users\osade\OneDrive\Bureaublad\PINAR" 'Default path name
If IsEmpty(strDirname) Then Exit Sub
If IsEmpty(strFilename) Then Exit Sub
MkDir strDefpath & strDirname
strPathname = strDefpath & strDirname & "" & strFilename 'create total string
ActiveWorkbook.SaveCopyAs Filename:=strPathname & ".pdf"
End Sub
Laatst bewerkt door een moderator: