Opslaan als pdf via macro

[Barend73]

Hallo,

Ik ben al een tijdje aan het zoeken hoe ik via een macro een blad kan opslaan als een pdf.
Na veel zoeken heb ik op de forum een macro gevonden maar helaas steeds zijn de pdf bestanden beschadigd.
Als ik het gewoon handmatig doe met opslaan als dan werkt het prima.
Ik maak gebruik van office 2010

Deze macro gaat het om:
Sub OpslaanAlsC1()

Dim Bestandsnaam As String

Bestandsnaam = "C:\users\mycom\desktop\" & CStr(Range("N1").Value) & ".pdf"
ActiveWorkbook.SaveAs Bestandsnaam$



End Sub


alvast bedankt voor de hulp

 

[ExcelAmateur]

Barend73,

Ik denk dat je bij deze link wel wat info kan halen over het opslaan.

 

[snb]

Als je weet hoe het met de hand moet kun je gewoon een macro opnemen.

 

[Barend73]

Ja dat kan wel maar ik wil er automatisch de naam van de klant bij hebben en dat gaat niet volgens mij.