Como repetir linhas no topo de cada impressão, exceto a última página no Excel?
Em muitos casos, pode ser necessário repetir a linha do cabeçalho na parte superior de cada página impressa no Excel. Mas como repetir linhas no topo de cada impressão, exceto a última página? Este artigo mostrará o método para alcançá-lo.
Repita as linhas no topo de cada impressão, exceto a última página com o código VBA
Repita as linhas no topo de cada impressão, exceto a última página com o código VBA
Você pode executar o código VBA abaixo para imprimir todas as páginas com linhas repetidas na parte superior, exceto a última página. Faça o seguinte.
1. Abra a planilha que você precisa para repetir as linhas no topo, exceto a última página e pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
VBA: Repita as linhas na parte superior 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. aperte o F5 para executar o código, então um Kutool para Excel caixa de diálogo aparece, selecione o intervalo de linha que você precisa repetir no topo de cada impressão, exceto a última página e, em seguida, clique no OK botão. Veja a imagem:
Em seguida, todas as páginas nesta planilha são impressas com certas linhas repetidas no topo, exceto a última página.
Artigos relacionados:
- Como repetir um valor de célula até que um novo valor seja visto ou alcançado no Excel?
- Como repetir um caractere n vezes em uma célula no Excel?
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!
