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.

Uitleg van de macro opslaan als PDF

 

 

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.

 
 
 
 

Nieuwsbrief

Als deze uitleg nuttig was, dan kan je je inschrijven voor onze nieuwsbrief.
Een keer per maand ontvang je de nieuwste berichten in je mailbox.
Klik hier om je in te schrijven.
Je kan ons ook volgen op Facebook en Twitter.

Dit vind je misschien ook leuk...

6 reacties

  1. Loes schreef:

    Geweldig deze formule! Werkte perfect toen ik het uitprobeerde in windows. Nu wil ik deze macro gaan gebruiken op mijn iMac. Helaas accepteert hij de filepath niet. De harde schijf naam van de iMac is MacintoshHD, hierbij krijg ik steeds een foutmelding. Hebben jullie een oplossing hiervoor?

  2. Nick schreef:

    Hoi Loes,

    Ik kan het zelf niet testen omdat ik geen mac bezit, maar zou je dit kunnen proberen en laten weten of het lukt?

    Sub PDFopslaanMAC()
    FacName = ActiveSheet.Range("C2").Value
    ChDir "/Users/Desktop/PDFopslaan/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    "/Users/Desktop/PDFopslaan/" & FacName & ".pdf", Quality:=xlQualityMinimum _
    , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
    End Sub

  3. Macmac schreef:

    Scheidingsteken bij imac is een : , dus macintosh HD:Users:….

  4. Axel schreef:

    Beste Nick,

    Geweldige Module! Deze wil ik zeker vaak gaan gebruiken.
    Mijn enige probleem is dat mijn PDFjes uit 2 pagina`s moeten bestaan en de module pakt alleen de eerste pagina van het afdrukbereik.
    Kan je mij hiermee helpen?

    Met vriendelijke groet,
    Axel

    • Nick schreef:

      De 3de regel van onder.

      From:=1, To:=1, OpenAfterPublish:=True

      Maak hier

      From:=1, To:=2, OpenAfterPublish:=True

      van, of bij meer pagina’s de 2 ophogen

  1. 15 mei 2019

    […] Nu heeft Excel een handige optie ingebouwd waarmee je een tabblad kan opslaan als PDF bestand of je kan de macro gebruiken voor het opslaan als PDF, opgelost zou je […]

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *

Spring naar toolbar