Hoe drukt u meerdere geselecteerde gebieden op één pagina af in Excel?
Hebt u een groot werkblad met veel gegevens en wilt u nu enkele niet-aaneengesloten bereiken op één pagina afdrukken om papier te besparen? Excel biedt weliswaar de functie Instellen Afdrukgebied om meerdere selecties tegelijk af te drukken, maar elk geselecteerd bereik wordt dan op een aparte pagina afgedrukt. In dit artikel leest u hoe u meerdere niet-aaneengesloten selecties wél op één pagina kunt afdrukken.
Meerdere selecties van één werkblad op één pagina afdrukken met VBA-code
Meerdere selecties van één of meerdere werkbladen op één pagina afdrukken met Kutools voor Excel
Meerdere selecties van één werkblad op één pagina afdrukken met VBA-code
Om meerdere geselecteerde, niet-aaneengesloten gebieden van één werkblad op één pagina af te drukken, helpt de volgende VBA-code u verder. Volg deze stappen:
1. Druk op de toetsencombinatie Ctrl om de bereiken te selecteren die u wilt afdrukken.
2. Houd de toetsencombinatie ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Meerdere selecties op één pagina afdrukken
Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
xRng2.Copy
Set xRng1 = xNewWs.Cells(xIndex, 1)
xRng1.PasteSpecial xlPasteValues
xRng1.PasteSpecial xlPasteFormats
xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
4. Druk vervolgens op de toets F5 om deze code uit te voeren. Uw geselecteerde bereik wordt dan in één keer afgedrukt en alles verschijnt op één pagina.
Meerdere selecties van één of meerdere werkbladen op één pagina afdrukken met Kutools voor Excel
De bovenstaande code helpt u alleen bij het afdrukken van een geselecteerd bereik op één werkblad. Als u meerdere selecties van verschillende werkbladen op één pagina wilt afdrukken, werkt deze code helaas niet. Maak u geen zorgen: hier stel ik u een handige tool voor – Kutools voor Excel. Met de functie Wizard voor meervoudige selectie-afdruk kunt u selecties van één of meerdere werkbladen in één keer op één pagina afdrukken.
Na installatie van Kutools voor Excelvoert u de volgende stappen uit:
1. Klik op KUTOOLS PLUS > Afdrukken > Wizard voor meervoudige selectie-afdruk, zie schermafbeelding:
2. In de wizard Wizard voor meervoudige selectie-afdruk klikt u op de knop 
om de bereiken die u wilt afdrukken, één voor één toe te voegen aan het vak „Te printen bereiken”. (U kunt bereiken selecteren van één of meerdere werkbladen.) Met de knop verwijdert u bereiken die u niet nodig hebt. Zie schermafbeelding:
3. Nadat u de selecties aan het lijstvak hebt toegevoegd, klikt u op de knop Volgende >> om naar stap 2 van de wizard te gaan. Geef de gewenste afdrukinstellingen op en voeg indien gewenst een lege rij tussen elk te printen bereik in door de optie Voeg een lege rij toe tussen elk te printen bereik aan te vinken. Zie schermafbeelding:
4. Klik daarna opnieuw op de knop Volgende >>. In stap 3 van de wizard kiest u wat u met het werkblad wilt doen: het werkblad activeren zonder afdrukken, het werkblad afdrukken en behouden, of het werkblad afdrukken en verwijderen. Zie schermafbeelding:
5. Klik op de knop Voltooien. Al uw geselecteerde bereiken zijn nu als gekoppelde afbeeldingsobjecten in een nieuw werkblad geplakt. U kunt ze verslepen en naar wens herschikken in het werkblad. Zie schermafbeelding:
6. Wanneer u dit nieuwe werkblad afdrukt, worden de geselecteerde bereiken netjes op één pagina afgedrukt—precies zoals gewenst.
Klik hier voor meer informatie over de Wizard voor meervoudige selectie-afdruk.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Meerdere selecties van één of meerdere werkbladen op één pagina afdrukken met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins