Ik wil meerdere geselecteerde bestanden via een knop in excel automatisch opslaan in één PDF file. Ik heb hiervoor op dit forum al de code hiervoor gevonden, maar dit gaat om het opslaan van één sheet. Hoe kan ik mijn code aanpassen zodat alle geselecteerde sheets worden opgeslagen in PDF?

De oorspronkelijke code was Set wsA = Activesheet, maar hier wil ik dus gebruikmaken van drie geselecteerde sheets.

Hieronder mijn code:

Dim Myfile As Variant
Set wsA = ActiveWindow.SelectedSheets

Myfile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
    If Myfile <> False Then
    Sheets(Array("Printvergoeding", "Printdeelnemer", "Printfactuur")).Select
    Sheets("Printfactuur").Activate
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Myfile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file is opgeslagen!"
    End If

Eigenlijk een nieuw topic starten

Topic afgesplitst 

SoftAid