Meerdere tabbladen opslaan in 1 PDF

[mark1987vw]

Ik wil graag via een macro mijn bestand op slaan als een PDF bestand. Dit lukt wel maar dan alleen per tabblad.
Nu wil ik graag dat alle 4 de tabbladen opslaan in 1 pdf bestand onder elkaar. Dit krijg ik alleen niet voor elkaar en ik kan het ook nergens vinden.
Iemand een idee.

Sub OpslaanPDF ()
PADPDF = "Y:\Restaurant\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PADPDF & "Afsluitlijst " & Format(Range("A2"), "ddd") & ".PDF"
, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End sub

 

[AD1957]

Kijk eens hier https://www.helpmij.nl/forum/showthread.php/956689-Macro-PDF-opslaan-meerdere-tabbladen-afzonderlijk

 

[mark1987vw]

Wat er daar wordt uitgelegd is dat elk tabblad in een apart PDF bestand wordt opgeslagen.
Ik zou graag mijn 4 tabbladen onder elkaar willen opslaan in 1 PDF bestand.

 

[VenA]

Sheets(Array("Sheet1","Sheet2")).select
ActiveSheet.ExportAsFixedFormat

 

[mark1987vw]

Sheets(Array("Sheet1","Sheet2")).select
ActiveSheet.ExportAsFixedFormat

Top dit werkt, bedankt!