Hoe druk je pagina's af met Romeinse paginanummers?

We kunnen gemakkelijk Romeinse paginanummers invoegen in Word, maar Excel ondersteunt deze functie niet voor gebruikers. Soms moeten we de werkbladpagina's afdrukken met Romeinse paginanummers. Hoe zou je dit in Excel kunnen oplossen?

Pagina's afdrukken met Romeinse paginanummers met VBA-code

Pagina's afdrukken met Romeinse paginanummers met VBA-code

Er is geen ingebouwde functie die het mogelijk maakt om pagina's af te drukken met Romeinse paginanummers, maar je kunt een macro maken om dit voor elkaar te krijgen. Volg de volgende stappen:

1. Open het werkblad dat je wilt afdrukken.

2. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Pagina's afdrukken met Romeinse paginanummers

Sub PrintRoman()
'Update 20140924
Dim xCount As Integer
Dim xIndex As Integer
xCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = 1 To xCount
    Application.ActiveSheet.PageSetup.CenterFooter = Application.Roman(xIndex)
    Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
Application.ActiveSheet.PageSetup.CenterFooter = ""
End Sub

4. Druk vervolgens op de F5-toets om de code uit te voeren, en alle pagina's van het actieve werkblad worden afgedrukt met Romeinse paginanummers.

Gerelateerde artikelen:

Hoe druk je snel de eerste pagina van elk werkblad af?

Hoe druk je snel de huidige pagina af in Excel?

Hoe druk je snel opmerkingen af in Excel?

Hoe druk je gegevens af in het midden van de pagina?