Hoe rijen herhaaldelijk afdrukken onderaan elke afgedrukte pagina in Excel?

Standaard biedt Excel de mogelijkheid om rijen herhaaldelijk bovenaan af te drukken. Maar in sommige gevallen wilt u misschien liever rijen herhaaldelijk onderaan pagina's afdrukken in plaats van bovenaan. Dit artikel laat u kleine trucjes zien.

Druk rijen herhaaldelijk onderaan af met VBA-code

Druk rijen herhaaldelijk onderaan af met VBA-code

U kunt de onderstaande VBA-code uitvoeren om de opgegeven rij in de voettekst van elke pagina in te voegen. U kunt deze rij vervolgens herhaaldelijk afdrukken onderaan elke afgedrukte pagina in Excel.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassing venster.

2. In de Microsoft Visual Basic voor toepassing dialoogvenster, klik op Invoegen > Module. En kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.

VBA-code: voeg de opgegeven rij in de voetteksten van elke afgedrukte pagina in

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 de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel dialoogvenster verschijnt, selecteer de rij die u herhaaldelijk wilt afdrukken onderaan elke afgedrukte pagina en klik vervolgens op de OK knop.

Nu wordt de opgegeven rij-inhoud toegevoegd aan de voettekst van elke afgedrukte pagina in het huidige werkblad. U kunt beginnen met het afdrukken van het werkblad.

Note: Als u de geselecteerde inhoud herhaaldelijk onder aan elke pagina in de hele werkmap wilt afdrukken, kunt u de voettekstfunctie toepassen om de inhoud in de voettekst van alle bladen in te voegen.