Hoe stelt u het afdrukgebied in op ‘Specificeer kolom tot de laatste rij’ in Excel?
In Excel wordt standaard het afdrukgebied ingesteld op het volledige werkblad tot en met de laatste rij met gegevens. Als u echter alleen kolommen A t/m C tot de laatste rij met gegevens wilt afdrukken — en eventuele gegevens in kolommen na C wilt uitsluiten — zoals in de onderstaande schermafbeelding, zijn er dan manieren om dit voor elkaar te krijgen?
Stel Afdrukgebied in op de Laatste rij met gegevens via Selectie afdrukken
Stel Afdrukgebied in op de Laatste rij met gegevens via VBA
| Een werkblad met gegevens tot en met kolom I | Afdrukvoorbeeld waarin alleen gegevens tot en met kolom C worden weergegeven |
 |  |
Stel Afdrukgebied in op de Laatste rij met gegevens via Selectie afdrukken
Als u een selectie wilt afdrukken tot de laatste rij met gegevens, wijzigt u het afdrukgebied naar de gewenste selectie vóór het afdrukken.
1. Houd de Ctrl-toets ingedrukt en selecteer daarna de kolommen die u wilt afdrukken. Zie de schermafbeelding:
2. Klik op Bestand > Afdrukken en kies vervolgens Selectie afdrukken in het gedeelte Instellingen. Zie schermafbeelding:
Stel Afdrukgebied in op de Laatste rij met gegevens
Hier introduceer ik ook een macrocode om deze bewerking uit te voeren.
1. Activeer het werkblad dat u gebruikt, druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen en klik op Invoegen > Module. Zie schermafbeelding.
2. Plak de onderstaande code in het Module-script en druk op F5 om uit te voeren.
VBA: Stel gebied in op Laatste rij
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Er verschijnt een dialoogvenster waarin u wordt gevraagd het kolombereik te selecteren dat u wilt gebruiken. Zie schermafbeelding:
4. Klik op OK, dan is het afdrukgebied ingesteld.
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