Como definir a área de impressão para colunas específicas até a última linha no Excel?

No Excel, por padrão, a área de impressão é configurada para incluir toda a planilha até a última linha com dados. No entanto, se você deseja imprimir apenas as colunas A a C até a última linha com dados (e excluir quaisquer dados nas colunas após a C), conforme mostrado na captura de tela abaixo, existem maneiras de lidar com isso?

Definir a área de impressão até a última linha com dados usando a opção Imprimir Seleção

Definir a área de impressão até a última linha com dados usando VBA

Uma planilha com dados que se estendem até a coluna I	Visualização de impressão mostrando dados somente até a coluna C

Definir a área de impressão até a última linha com dados usando a opção Imprimir Seleção

Para imprimir uma seleção até a última linha com dados, você pode alterar a área de impressão para a seleção especificada antes de imprimir.

1. Mantenha pressionado Ctrl e selecione as colunas que deseja imprimir. Veja a captura de tela:

2. Clique em Arquivo > Imprimir, e depois escolha Imprimir Seleção na seção Configurações Veja a captura de tela:

Definir a área de impressão até a última linha com dados

Aqui apresento um código de macro para realizar essa operação também.

1. Ative a planilha que está usando, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications e clique em Inserir > MóduloVeja a captura de tela.

2. Cole o código abaixo no script do Módulo e pressione a tecla F5 para executar.

VBA: Definir Área até a última linha

'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. Um diálogo aparece para lembrá-lo de selecionar o intervalo de colunas que deseja usar. Veja a captura de tela:

4. Clique em OK, a área de impressão foi definida.