Bart1980991
Gebruiker
- Lid geworden
- 15 aug 2018
- Berichten
- 29
Hallo,
Voor het beheer van verschillende notulen gebruik ik onderstaande macro om een PDF te genereren.
Deze gaat uit van het blad wat op dat moment actief is.
Weet iemand hoe ik de code kan aanpassen zodat ook een ander tabblad (Actie & Besluitenlijst) aan de PDF wordt toegevoegd zodat er dus een PDF met 2 pagina's ontstaat?
Alvast bedankt voor het meedenken!
Bart
Voor het beheer van verschillende notulen gebruik ik onderstaande macro om een PDF te genereren.
Deze gaat uit van het blad wat op dat moment actief is.
Weet iemand hoe ik de code kan aanpassen zodat ook een ander tabblad (Actie & Besluitenlijst) aan de PDF wordt toegevoegd zodat er dus een PDF met 2 pagina's ontstaat?
Alvast bedankt voor het meedenken!
Bart
Code:
Sub PDF()Dim FacName As String
FacName = ActiveSheet.Range("A1").Value
If Dir("K:\Verslagen\MT-Staf\2019\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="K:\Verslagen\MT-Staf\2019\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub