Opgelost PDF wedstrijdbladeren volledige club (samengevoegde PDF maken?)

[Gielleke25]

Hallo iedereen,

Graag wil ik eens beroep doen op jullie uitgebreide kennis alstublieft.
Enige tijd geleden heb ik met hulp van jullie een dartprogramma gemaakt voor onze dartclub.
Deze werkt nu volledig zonder fouten en naar onze zin! Bedankt hiervoor!

Voor de wedstrijden op locatie gebruiken wij een A4 map waarin wedstrijdbladeren in zitten, en dit per persoon.
Hierin moet elke speler kijken tegen wie hij nog moet en de punten invullen op de lege plaatsen. Zodat dit daarna wekelijks kan ingegeven worden in het Excel programma.

Hoe drukken wij de wedstrijdbladeren af?
In het programma gaan we naar het tabblad "Ranglijst", daar kiezen wij de dartsnaam van de betreffende speler.
Daarna drukken wij op "PDF Wedstrijdblad". Hierna maakt Excel een PDF aan die we vervolgens kunnen afdrukken.

Onze vraag?
Zou er een mogelijkheid bestaan op basis van ons huidige programma, een mogelijkheid te maken wanneer we op de knop "PDF Wedstrijdbladeren volledige club" dat hij een PDF aanmaakt van alle PDF bladeren te samen? Zodoende we deze in één keer kunnen afdrukken alstublieft?

Of is dit totaal niet mogelijk?
Alvast bedankt om hiervoor naar te kijken.

P.S. het paswoord van de beveiliging = Lokeren

Mvg,

 

[AHulpje]

Alle wedstrijdbladen in één PDF is met de huidige opzet niet goed mogelijk, er wordt telkens één werkblad gevuld en naar PDF geëxporteerd. Het is in dat geval handiger om het werkblad rechtstreeks naar de printer te sturen. Er moet dan wel een fysieke printer aanwezig zijn natuurlijk. De huidige printer is nu: Application.ActivePrinter = "Microsoft Print to PDF op Ne01:"
Er zal dan eerst een andere printer gekozen moeten worden voordat alle wedstrijdbladen geprint worden. E.e.a. is redelijk eenvoudig te realiseren. Zie bijlage.

 

[edmoor]

Alle zichtbare bladen naar 1 PDF:

Sub PDF_alle_bladen()
    For i = 1 To Sheets.Count
        If Sheets(i).Visible Then Sheets(i).Select False
    Next i
    ActiveSheet.ExportAsFixedFormat 0, Environ("Userprofile") & "\Desktop\AlleBladen.pdf"
End Sub

 

[Gielleke25]

Top!
Bedankt voor deze oplossing omtrent mijn vraag!

Mvg,