Come impostare l'area di stampa su colonne specifiche fino all'ultima riga in Excel?

In Excel, per impostazione predefinita, l'area di stampa è configurata per includere l'intero foglio di lavoro fino all'ultima riga contenente dati. Tuttavia, se vuoi stampare solo le colonne A a C fino all'ultima riga con dati (escludendo qualsiasi dato nelle colonne successive alla C), come mostrato nello screenshot sottostante, ci sono modi per gestire questa situazione?

Imposta l'area di stampa fino all'ultima riga con dati tramite Selezione Stampa

Imposta l'area di stampa fino all'ultima riga con dati tramite VBA

Un foglio di lavoro con dati che si estendono fino alla colonna I	Anteprima di stampa che mostra i dati fino alla colonna C soltanto

Imposta l'area di stampa fino all'ultima riga con dati tramite Selezione Stampa

Per stampare una selezione fino all'ultima riga con dati, puoi cambiare l'area di stampa nella selezione specificata prima della stampa.

1. Tieni premuto Ctrl e poi seleziona le colonne che desideri stampare. Vedi screenshot:

2. Clicca su File > Stampa, e poi scegli Stampa Selezione dalla sezione Impostazioni . Vedi screenshot:

Imposta l'area di stampa fino all'ultima riga con dati

Qui ti presento un codice macro per eseguire anche questa operazione.

1. Abilita il foglio che stai utilizzando, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications e clicca su Inserisci > Modulo. Vedi screenshot.

2. Incolla il seguente codice nello script del Modulo e premi il tasto F5 per eseguirlo.

VBA: Imposta Area fino all'ultima riga

'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. Apparirà una finestra di dialogo per ricordarti di selezionare l'intervallo di colonne che desideri utilizzare. Vedi screenshot:

4. Clicca OK, l'area di stampa è stata impostata.