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 do 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.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!