| Excel heeft geen ingebouwde functie om automatisch een specifieke selectie af te drukken op *elke* pagina van een groter werkblad. Met de functie Afdrukgebied kunt u slechts één gebied opgeven om af te drukken. Om dit te bereiken heb je een oplossing nodig, en de beste aanpak hangt af van wat voor soort selectie je probeert af te drukken:
Scenario 1:De selectie is een kop- of voettekstachtig element (herhalende inhoud)
* Gebruik koptekst/voettekst: Als de selectie bedoeld is als kop- of voettekst, is dit de gemakkelijkste oplossing. Ga naar het tabblad "Pagina-indeling", klik op "Titels afdrukken" en geef vervolgens het bereik op dat u wilt herhalen als kop- of voettekst in de juiste vakken.
Scenario 2:De selectie is een klein element dat op elke pagina moet verschijnen (bijvoorbeeld een logo)
* Invoegen als afbeelding: Kopieer uw selectie, plak deze als afbeelding (gebruik de optie "Plakken speciaal" en selecteer "Afbeelding (Enhanced Metafile)" of een vergelijkbaar formaat) en plaats deze waar u deze op elke pagina wilt hebben. Deze afbeelding wordt op elke pagina afgedrukt. Houd er rekening mee dat als uw inhoud regelmatig verandert, u de afbeelding elke keer moet bijwerken.
Scenario 3:De selectie bestaat uit een complexer element of complexere gegevens die op elke pagina moeten staan (het meest uitdagend)
Dit vereist een meer geavanceerde aanpak, vaak met behulp van een VBA-macro (Visual Basic for Applications). Er is hiervoor geen eenvoudige, niet-VBA-oplossing. Een macro zou het volgende moeten doen:
1. Bepaal het aantal pagina's: Hierbij wordt de grootte van het afdrukbare gebied en de grootte van de gegevens berekend.
2. Door pagina's bladeren: De macro loopt door elke pagina.
3. Druk de selectie op elke pagina af: Dit kan inhouden dat u het afdrukgebied tijdelijk moet instellen of schermopnametechnieken in de macro moet gebruiken om de selectie op de afbeelding van elke pagina te 'stempelen' voordat deze wordt afgedrukt.
Voorbeeld van VBA-code (complex en vereist aanpassing op basis van uw behoeften): Dit is een vereenvoudigde illustratie en werkt mogelijk niet zonder aanpassing aan uw specifieke blad. Het is van cruciaal belang om VBA te begrijpen voordat u dit probeert.
```vba
Sub PrintSelectieOpPagina()
Dit is een sterk vereenvoudigd voorbeeld en zal waarschijnlijk aanzienlijke aanpassingen vereisen
' om correct te werken voor uw specifieke situatie.
Dim ws As-werkblad
Set ws =ThisWorkbook.Sheets("Sheet1") ' Wijzig "Sheet1" in uw bladnaam
Dim selectiebereik als bereik
Set SelectionRange =ws.Range("A1:B5") ' Wijzig naar uw daadwerkelijke selectiebereik
Dim foto als afbeelding
Set pic =ws.Pictures.Add(selectieRange.Top, selectieRange.Links, selectieRange.Width, selectieRange.Height)
pic.CopyPicture Uiterlijk:=xlScherm, Formaat:=xlPicture
' ... (Code om het aantal pagina's te bepalen en er doorheen te bladeren, de afbeelding te plakken) ...
Einde sub
```
Aanbeveling: In de meeste gevallen, vooral als uw "selectie" een koptekst, voettekst of eenvoudig logo is, is het gebruik van de ingebouwde kop-/voettekst of het invoegen van een afbeelding de beste aanpak. Als u het complexere Scenario 3 nodig heeft, heeft u aanzienlijke VBA-expertise nodig of hulp van iemand met die expertise. Vergeet niet om altijd een back-up van uw werkmap te maken voordat u VBA-code uitvoert. |
