Macro oplaan als pdf bijvoegen

[dieten]

Hallo,

Ik heb hier een excel document waarin al enkele macro's zitten.
Door op de figuur (rechts) "opslaan" te klikken word het bestand automatisch opgeslagen in de juiste map met de juiste naam.
Om wat werk te besparen wil ik de nu ook als pdf gaan opslaan (enkel het afdrukbereik, dus 1blz). Die pdf mag dezelfde naam hebben als de .xls en mag in de zelfde map opgeslagen worden.
Welk stukje code moet ik in m'n bestaande macro bijvoegen?

PS: Ik werk met de 2007 versie

Bekijk bijlage BLANCO3.xlsm

Mvg,

Dieten

 

[robdgr]

Voor pdf opslaan gebruik je

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\naam\Desktop\naam" & " - versie " & Format(Now(), "dd-mm-yy") & " " & Format(Time, "hh.mm") & ".pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Omdat ik de pdf alleen gebruik voor verzending, staat er na de verzendopdracht deze code

Kill "C:\Users\naam\Desktop\naam" & " - versie " & Format(Now(), "dd-mm-yy") & " " & Format(Time, "hh.mm") & ".pdf"

Ik neem aan dat dit ook in 2007 werkt.

 

[dieten]

Heel erg bedankt, deze code heeft gewerkt, enkel heb ik de filenaam wat aangepast.

     filenaam2 = ThisWorkbook.Path & "\Prijsoffertes\" & "PO-" & [G8] & "-" & [B23]

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filenaam2, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

 

[robdgr]

Dieten,

Uiteraard moest je de naam aanpassen, maar prima dat het bij jou ook werkt.