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