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.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins