Como definir a Área de Impressão para incluir uma coluna específica até à última linha no Excel?
No Excel, por predefinição, a Área de Impressão está definida para incluir toda a folha de cálculo até à Última Linha com dados. Contudo, se pretender imprimir apenas as colunas A a C até à Última Linha com dados (e excluir quaisquer dados nas colunas após a C), como ilustrado na imagem abaixo, existem formas de resolver esta situação?
Definir Área de Impressão para a Última Linha com dados através do Imprimir Seleção
Definir Área de Impressão para a Última Linha com dados através de VBA
| Uma folha de cálculo com dados que se estendem até à coluna I | Pré-visualização da impressão a mostrar apenas os dados até à coluna C |
 |  |
Definir Área de Impressão para a Última Linha com dados através do Imprimir Seleção
Para imprimir uma seleção até à última linha com dados, basta definir a área de impressão como a seleção pretendida antes de imprimir.
1. Mantenha premida a tecla Ctrl e selecione as colunas que pretende imprimir. Veja a imagem:
2. Clique em Ficheiro > Imprimir e, na secção Definições, escolha Imprimir Seleção. Veja a imagem:
Definir Área de Impressão para a Última Linha com dados
Apresento aqui uma macro para realizar também esta operação.
1. Ative a folha que utiliza, prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications e clique em Inserir > Módulo. Veja a imagem.
2. Cole o código abaixo no script do Módulo e prima a tecla F5 para executar.
VBA: Definir Área para Ú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. É apresentada uma caixa de diálogo a lembrá-lo para selecionar o intervalo de colunas que pretende utilizar. Veja a imagem:
4. Clique em OK e a área de impressão ficará definida.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos