Met VBA opgeslagen pdf bestand geeft Error (PDF Structure 40)

[omersade]

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?

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

 

[edmoor]

Dat is ook geen pdf bestand.
Je maakt zo alleen een Excel document met de extensie .pdf aan.

Zie :
https://exceloffthegrid.com/vba-code-save-excel-file-as-pdf/

Probeer dit maar eens:

Sub PDF()
    strDirname = Range("G4").Value
    If Dir(strDirname, vbDirectory) = "" Then MkDir strDirname
    strDefpath = "C:\Users\osade\OneDrive\Bureaublad\PINAR"
    strFilename = Range("G4") & Range("M7") & Range("M5")
    ThisWorkbook.ExportAsFixedFormat 0, strDefpath & "\" & strFilename
End Sub

Hoe sla de de .xls op?
Want dat is een document specifiek voor Office 2003 en lager.

 

[omersade]

Excel bestand is goed. kan ik er mee werken.
Het gaat om de PDF bestand die in een zelfde map moet worden opgeslagen

 

[edmoor]

Zie #2.

 

[AHulpje]

En het BTW tarief is niet 20% maar 21%.

 

[edmoor]

En mocht je echt met een Office versie lager dan 2010 werken dan werkt ExportAsFixedFormat niet.
En dat heb je nodig voor een export naar PDF.

Dan kan je een PDF printer gebruiken.
Iets als deze:
https://tools.pdf24.org/nl/pdf-printer

 

[HSV]

ExporAsFixedformat werkt vanaf Excel 2007.

 

[edmoor]

Volgens mij alleen maar de SaveAsPDF plugin.
Maar in Excel 2003 werkt het in ieder geval niet.

 

[HSV]

Ik heb 15 jaar met Excel 2007 gewerkt, daar zat het standaard op.
Excel 2003 sowieso niet.

 

[edmoor]

Ik heb 15 jaar met Excel 2007 gewerkt.

Dan weet je vast waar je het over hebt