Samenvoegen PDF's mbv VBA

[aapman83]

Middels onderstaande VBA code maak ik 30 verschillende pdf bestanden. Op een blad wordt met een variabele 30 x een berekening uitgevoerd, en die wil ik allemaal op pdf hebben. Echter wil ik niet 30 aparte pdf's, maar slechts één waarin alles staat. Hoe doe ik dat?


Blad1.Select
Range("Plaats").Select
ActiveCell.FormulaR1C1 = Range("Breda").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("MAP").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False


Blad1.Select
Range("Plaats").Select
ActiveCell.FormulaR1C1 = Range("Nispen").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("MAP").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

 

[alphamax]

de berekening 30 keer boven elkaar zetten op 1 werkblad en dan er een pdf van maken