Opslaan als PDF

Als je vaak bestanden opslaat als PDF, dan is deze macro echt iets voor jou.
Het slaat bestanden op in het juiste formaat in een vooraf opgegeven map met een druk op de knop.

Vooraf is het handig om te weten hoe je het Ontwikkelaars tabblad krijgt en hoe je een macro toevoegt.

Opslaan als PDF

Open de VB editor, ALT + F11, en maak een nieuwe Module aan.

Sub PDF() Dim FacName As String FacName = ActiveSheet.Range("C2").Value If Dir("C:\Users\Nick\Desktop\" & FacName & ".pdf") <> "" Then MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds" Exit Sub Else ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Nick\Desktop\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True End If End Sub

Nu slaat hij het bestand op met de naam die is opgegeven in cel A1.
De locatie dien je nog wel te wijzigen naar je eigen wens.
Let op: er zijn 2 locaties die hetzelfde moeten zijn!
De 1ste locatie kijkt of de bestandsnaam al in gebruik is, mocht dit niet zijn dan slaat hij hem op op de 2de locatie.

We maken voor het gemak even een ActiveX besturingselement aan.
Open op het lint het tabblad Ontwikkelaars, selecteer hier de optie Invoegen en kies voor knop.
Koppel hier de zojuist aangemaakte module aan.

Je kan het bestand ook opslaan met een andere extensie dan PDF hiervoor moet je de code een klein beetje aanpassen.