Conas leathanaigh a phriontáil le huimhreacha leathanaigh uimhriúla Rómhánacha?

Is féidir linn uimhir an leathanaigh uimhriúil Rómhánach a chur isteach i Word, ach, ní thacaíonn Excel leis an ngné seo d’úsáideoirí. Uaireanta, caithfimid leathanaigh na mbileog oibre a phriontáil le huimhreacha leathanaigh uimhriúla Rómhánacha, conas a d’fhéadfá an post seo a réiteach in Excel?

Priontáil leathanaigh le huimhreacha leathanaigh uimhriúla Rómhánacha le cód VBA

Priontáil leathanaigh le huimhreacha leathanaigh uimhriúla Rómhánacha le cód VBA

Níl aon ghné ionsuite ann a ligeann duit na leathanaigh a phriontáil le huimhreacha leathanaigh uimhriúla Rómhánacha, ach is féidir leat macra a chruthú chun an cleas a dhéanamh. Déan na céimeanna seo a leanas le do thoil:

1. Oscail an bhileog oibre a theastaíonn uait a phriontáil.

2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Priontáil leathanaigh le huimhreacha leathanaigh uimhriúla Rómhánacha

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. Ansin brúigh F5 eochair chun an cód a fhorghníomhú, agus priontálfar leathanaigh uile na bileoige gníomhaí le huimhreacha leathanaigh uimhriúla na Róimhe.

Earraí gaolmhara:

Conas an chéad leathanach de gach bileog a phriontáil go tapa?

Conas an leathanach reatha in Excel a phriontáil go tapa?

Conas tráchtanna a phriontáil go tapa in Excel?

Conas sonraí a phriontáil ar lár an leathanaigh?