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.