VBA Meerdere pagina`s oplsaan in .pdf

[koalatytime]

Beste Helpers,

Ik heb een macro overgenomen van het internet die met 1 druk op de knop een sheet opslaat in pdf formaat.
Geweldig maar hij pakt alleen de eerste pagina van het afdrukbereik.
Kan iemand de code aanpassen zodat hij alle pagina`s in het afdrukbereik pakt of vertellen hoe ik dat kan doen?
Zal zeer gewaardeerd worden :thumb:

Mvg,
Koala

 

[edmoor]

En wil je dan per pagina een PDF of alle pagina's in 1 PDF?

 

[koalatytime]

Bedankt voor je reactie,

Alle pagina`s moeten op een pdf bestandje komen.

 

[edmoor]

En dan plaats je als voorbeeld een bestand met maar 1 werkblad?

Probeer deze maar eens:

Sub Opslaan()
    Dim FacName As String
    Dim PDFmap As String
    
    PDFmap = "C:\Users\Gebruiker\Dropbox\Cantina Folder shared Vivi\Quality\3.Productbeoordeling\Eindproducten\productspecificatiebeheer 2019\PDF\CM "
    FacName = ActiveSheet.Range("D3").Value
    
    If Dir("C:\Users\Gebruiker\Dropbox\Cantina Folder shared Vivi\Quality\3.Productbeoordeling\Eindproducten\2019\PDF" & FacName & ".pdf") <> "" Then
        MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
        Exit Sub
    Else
        For Each sht In ThisWorkbook.Sheets
            sht.Select False
        Next sht
        
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=PDFmap & FacName & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    End If
End Sub

 

[koalatytime]

Hoi edmoor,

Dit is precies wat ik bedoel!
je bent geweldig!
Bedankt!