Hoe stel je het afdrukgebied in voor specifieke kolommen tot de laatste rij in Excel?
In Excel is het afdrukgebied standaard ingesteld om de hele werkblad tot de laatste rij met gegevens te omvatten. Als je echter alleen kolommen A tot C tot de laatste rij met gegevens wilt afdrukken (en alle gegevens in de kolommen na C wilt uitsluiten), zoals te zien is in de onderstaande schermafbeelding, zijn er dan manieren om dit te doen?
Stel het afdrukgebied in tot de laatste rij met gegevens via Afdrukselectie
Stel het afdrukgebied in tot de laatste rij met gegevens via VBA
| Een werkblad met gegevens die zich uitstrekken tot kolom I | Afdrukvoorbeeld dat alleen gegevens tot kolom C toont |
 |  |
Stel het afdrukgebied in tot de laatste rij met gegevens via Afdrukselectie
Om een selectie tot de laatste rij met gegevens af te drukken, kun je het afdrukgebied wijzigen naar de gespecificeerde selectie voordat je afdrukt.
1. Houd Ctrl ingedrukt en selecteer vervolgens de kolommen die je wilt afdrukken. Zie onderstaande schermafbeelding:
2. Klik op Bestand > Afdrukken, en kies vervolgens Afdrukselectie uit de Instellingen sectie. Zie onderstaande schermafbeelding:
Stel het afdrukgebied in tot de laatste rij met gegevens
Hier introduceer ik een macrocode om deze bewerking ook uit te voeren.
1. Open het werkblad dat je gebruikt, druk op Alt + F11 om het Microsoft Visual Basic for Applications venster te openen, en klik op Invoegen > Module. Zie onderstaande schermafbeelding.
2. Plak onderstaande code in het Modulescript en druk op F5 om uit te voeren.
VBA: Stel gebied in tot 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 je wordt gevraagd de kolombreedte te selecteren die je wilt gebruiken. Zie onderstaande schermafbeelding:
4. Klik op OK, het afdrukgebied is ingesteld.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen