Tabbladen als PDF opslaan

[Bart1980991]

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

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

 

[SjonR]

Probeer dit eens:

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
[COLOR="#FF0000"]Sheets(Array("Blad1", "Blad2")).Select[/COLOR]  [COLOR="#00FF00"]'''hier jouw tabbladen benoemen!!!!![/COLOR]
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

 

[edmoor]

Wat SjonR zegt, maar dan een stuk leesbaarder dan die van Bart:

Sub PDF()
    FacName = "K:\Verslagen\MT-Staf\2019\" & ActiveSheet.Range("A1").Value & ".pdf"
    If Dir(FacName) <> "" Then
        MsgBox "Het bestand: " & FacName & " bestaat reeds", vbCritical
        Exit Sub
    End If
    
    Sheets(Array("Blad1", "Blad2")).Select  [COLOR="#008000"]'''hier jouw tabbladen benoemen!!!!![/COLOR]
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FacName, _
        IgnorePrintAreas:=True, _
        OpenAfterPublish:=True
End Sub

 

[Bart1980991]

Bedankt Sjon en Edmoor voor jullie snelle reactie.

Ik krijg echter bij beide de foutmelding 'het subsscript valt buiten bereik' als ik de macro uitvoer, (het gaat overigens in mijn document om 'blad4').

Groeten,
Bart

 

[SjonR]

Plaats eens een bestandje waarin het fout gaat.

 

[VenA]

Iets cryptischer

Sub VenA()
  c00 = "E:\Temp\" & Format(Now, "yyyymmdd hhmmss") & ".pdf"
  Sheets(Array(ActiveSheet.Name, "Blad4")).Select
  Selection.ExportAsFixedFormat 0, c00, , , , , , True
End Sub

 

[edmoor]

Ik krijg echter bij beide de foutmelding 'het subsscript valt buiten bereik' als ik de macro uitvoer, (het gaat overigens in mijn document om 'blad4').

Je ziet in de code toch duidelijk waar de bladnamen vermeld staan?

 

[VenA]

@edmoor,

Deze gaat uit van het blad wat op dat moment actief is.

In mijn code

 Sheets(Array([COLOR="#FF0000"]ActiveSheet.Name[/COLOR], "Blad4")).Select

De rest mag natuurlijk door de TS aangepast worden naar eigen wensen/kennis.

 

[edmoor]

Blad4 staat wel in jouw code maar niet in de code waar Bart eerder op reageerde.
Dat bedoelde ik eigenlijk

 

[HSV]

@VenA, 'Activesheet' zal beter werken dan 'selection' in je cryptische code

 

[VenA]

Werkt inderdaad beter. shame on me

De essentie staat er wel (denk ik). dus dat scheelt weer.:d

 

[Bart1980991]

Plaats eens een bestandje waarin het fout gaat.

Bekijk bijlage MT verslaglegging nieuw format (concept).xlsm

Bij deze een voorbeeldbestand.
Mijn idee was om steeds het voorbeeld sjabloon te kopieeren, in te vullen en bij het publiceren het 'active sheet' en de A&B lijst op te slaan als PDF

Ik blijf de foutcode houden. Zowel bij benoemen van het blad als active sheet

 

[edmoor]

Blad4 heet Actie&Besluitenlijst2019.
Blad2 heet Vergadersjabloon.

Die namen moet je dus gebruiken.

 

[Bart1980991]

Bedankt allen!