Foutmelding bij PDF opslaan via macro

[Thomas25]

ik wil via een macro facturen opslaan, ik heb even een voorbeeldfile gemaakt, alleen als ik dan achteraf het PDF bestand wil openen krijg ik telkens een foutmelding dat deze niet goed gedecodeerd is, en kan vervolgens de pdf niet openen.

Heeft iemand een idee wat ik fout doe?

 

[Warme bakkertje]

Sub OpslaanAlsPDF()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Outlet Products\Voorraadbeheer\Facturen\2012\" & Range("B2").Value & ".pdf", _
    Quality:=xlQualityStandard, DisplayFileAfterPublish:=True
End Sub

 

[Thomas25]

Dankjewel, werkt perfect