Como definir a área de impressão para a última linha no Excel?

No Excel, por padrão, ele irá definir toda a planilha até a última linha com os dados como área de impressão. Mas, neste caso, eu quero imprimir da coluna A para a coluna C até a última linha com os dados mostrados na captura de tela abaixo, há alguma maneira de lidar com isso?

Defina a área de impressão para a última linha com dados por seleção de impressão

Defina a área de impressão para a última linha com dados por VBA

---

Defina a área de impressão para a última linha com dados por seleção de impressão

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

1. Segure Ctrl em seguida, selecione as colunas que deseja imprimir. Veja a imagem:

2. Clique Envie o > Impressão, e então escolha Imprimir seleção de Configuração seção. Veja a imagem:

---

Defina a área de impressão para a última linha com dados

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

1. Habilite a folha que você usa, pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela e clique inserção > Módulo. Veja a imagem.

2. Cole o código abaixo no Módulo script e pressione F5 chave para correr.

VBA: definir área para 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. Uma caixa de diálogo é exibida para lembrá-lo de selecionar o intervalo de colunas que deseja usar. Veja a imagem:

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