Hvordan indstilles udskriftsområdet til sidste række i Excel?

I Excel indstiller det som standard hele regnearket indtil sidste række med data som udskrivningsområde. Men i dette tilfælde vil jeg udskrive fra kolonne A til kolonne C indtil den sidste række med data som vist nedenfor, er der nogen måder at håndtere det på?

Indstil udskrivningsområdet til den sidste række med data ved udskrivningsvalg

Indstil udskrivningsområdet til den sidste række med data fra VBA

Indstil udskrivningsområdet til den sidste række med data ved udskrivningsvalg

Hvis du vil udskrive et valg til den sidste række med data, kan du ændre udskriftsområdet til det angivne valg inden udskrivning.

1. Holde Ctrl vælg derefter de kolonner, du vil udskrive. Se skærmbillede:

2. klik File (Felt) > Print, og vælg derefter Udskriv valg fra Lokal område afsnit. Se skærmbillede:

Indstil udskrivningsområdet til den sidste række med data

Her introducerer jeg en makrokode for også at udføre denne operation.

1. Aktivér det ark, du bruger, tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler. Se skærmbillede.

2. Indsæt nedenstående kode i Moduler script, og tryk på F5 nøgle til at køre.

VBA: Indstil område til sidste række

'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. Der vises en dialogboks, der minder dig om at vælge det kolonneområde, du vil bruge. Se skærmbillede:

4. klik OK, udskriftsområdet er indstillet.