Como repetir linhas no topo de cada página impressa, exceto na última página, no Excel?
Em muitos casos, poderá precisar de repetir a linha de cabeçalho no topo de cada página impressa no Excel. Mas como repetir linhas no topo de todas as páginas, exceto na última? Este artigo mostra-lhe um método para o conseguir.
Repetir linhas no topo de cada impressão exceto a Última Página com código VBA
Repetir linhas no topo de cada impressão exceto a Última Página com código VBA
Pode executar o código VBA abaixo para imprimir todas as páginas com as linhas repetidas no topo, exceto a última página. Siga este procedimento:
1. Abra a folha de cálculo em que precisa de repetir linhas no topo, exceto na última página, e prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela do Módulo.
VBA: Repetir linhas no topo de cada impressão exceto a Última Página no Excel
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub3. Prima a tecla F5 para executar o código. Em seguida, abre-se uma caixa de diálogo do Kutools for Excel. Introduza: «Por favor, selecione o intervalo de linhas que pretende repetir no topo de cada impressão, exceto na última página» e, depois, clique no botão OK. Veja a imagem:
Depois, todas as páginas desta folha de cálculo são impressas com uma determinada linha repetida no topo, exceto a última página.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como repetir um valor de célula até que um novo valor seja encontrado ou alcançado no Excel?
- Como repetir um caractere n vezes numa célula no Excel?
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