Beste Cladon,
Je zou het kunnen oplossen met een extra macro als volgt :
(plaats dit bij in je module)

Sub Macro3()
Sheets("Blad1").Select
    Range("A1:P600").Select
    Selection.Clear
Sheets("verslag").Select
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="J"
    Range("B1:P600").Select
    Selection.Copy
    Sheets("Blad1").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Misschien is deze code niet zo fraai maar ik denk dat ze wel aan je vraag voldoet.
Probeer maar een keer en laat iets weten.
Succes
Dimy

Cladon, Ik zie dat je in je sheet 'verslag' gebruik gemaakt hebt van zogenaamde 'harde pagina scheidiingen'... Als je deze verwijdert, en Excel zelf het werk laat doen, zal je al je geselecteerde paragrafen na elkaar afgedrukt zien. Wat voor selectie je met 'J' of 'N' ook verzint. Je hoeft dan helemaal geen gebruik te maken van code om eea goed te laten verlopen (NIETS ten nadele van Dimy!!!! -> prima idee!)

Misschien nog ff een tipje van mijn kant... Ik zou die gemergde (samengevoegde) regels - die je gebruikt om het verslagje kwijt te kunnen - vervangen voor slechts 1 regel die je een hoogte van 168 pixels meegeeft (het bestaat nu uit 8 regels met elk een hoogte van 21 pixels). Op deze manier hoef je véél minder J-tjes of N-nen in te vullen. Zet dan wel de celeigenschap van die hoge cel op wrap text (regelterugloop?). een ander voordeel is dat zo'n blok altijd op 1 pagina blijft. Maar goed, het was een ongevraagde (maar zéker goedbedoelde) tip. Dus zie maar wat je er mee doet! 

Groet, Leo

Cladon, Ik ben nog ff wat aan 't spelen geweest met je sheet . Zo heb ik als voorbeeld een formulier toegevoegd waarmee je aangeeft welke van de rapportageblokken je wilt tonen. Zo hoef je niet overal J-tjes of N-en te zetten en druk je alleen de juiste (dus ingevulde) delen af.
Ik heb alleen als voorbeeld de 1e 2 blokken van 'kennis' bewerkt. De rest zal je zelf moeten invullen in VBA... (lekker copy/pasten en bereiken invullen )

Kijk maar of je er iets mee kan....

Groet, Leo

Cladon, uitdagingen (die binnen mijn mogelijkheden liggen ) zijn ALTIJD welkom... 
('k ben vanaf vandaag ff een week wintersporten, dus aub niet direct verzoeken neerleggen)

Groet, Leo