Hoe rijen herhaaldelijk onderaan elke afgedrukte pagina in Excel te printen?

Standaard biedt Excel een functie om rijen herhaaldelijk bovenaan te printen. Maar in sommige gevallen kunt u er de voorkeur aan geven om rijen herhaaldelijk onderaan de pagina's te printen in plaats van bovenaan. Dit artikel laat u enkele handige trucs zien.

Rijen herhaaldelijk onderaan printen met VBA-code

Rijen herhaaldelijk onderaan printen met VBA-code

U kunt de volgende VBA-code uitvoeren om de gespecificeerde rij in de voettekst van elke pagina in te voegen. Vervolgens kunt u deze rij herhaaldelijk onderaan elke afgedrukte pagina in Excel printen.

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Application-venster te openen.

2. Klik in het dialoogvenster Microsoft Visual Basic for Application op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Gespecificeerde rij invoegen in voetteksten van elke afgedrukte pagina

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Druk op de F5-toets om de code uit te voeren. Er verschijnt een Kutools voor Excel-dialoogvenster, selecteer de rij die u herhaaldelijk onderaan elke afgedrukte pagina wilt printen en klik vervolgens op de OK-knop.

Nu zijn de inhoud van de gespecificeerde rij toegevoegd aan de voettekst van elke afgedrukte pagina in het huidige werkblad. U kunt nu het werkblad gaan printen.

Opmerking: Als u de geselecteerde inhoud herhaaldelijk onderaan elke pagina in het hele werkboek wilt printen, kunt u de voettekstfunctie gebruiken om de inhoud in de voettekst van alle werkbladen in te voegen.