كيفية طباعة الصفحات باستخدام أرقام الصفحات الرومانية؟

يمكننا بسهولة إدراج رقم الصفحة بالرقم الروماني في برنامج Word، لكن Excel لا يدعم هذه الميزة للمستخدمين. في بعض الأحيان، نحتاج إلى طباعة صفحات ورقة العمل باستخدام أرقام الصفحات الرومانية، فكيف يمكن حل هذه المهمة في Excel؟

طباعة الصفحات بأرقام الصفحات الرومانية باستخدام كود VBA

طباعة الصفحات بأرقام الصفحات الرومانية باستخدام كود VBA

لا توجد ميزة مضمنة تتيح لك طباعة الصفحات بأرقام الصفحات الرومانية، ولكن يمكنك إنشاء ماكرو يقوم بهذه المهمة. الرجاء اتباع الخطوات التالية:

1. افتح ورقة العمل التي تريد طباعتها.

2. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: طباعة الصفحات بأرقام الصفحات الرومانية

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. ثم اضغط على مفتاح F5 لتنفيذ الكود، وستتم طباعة جميع صفحات ورقة العمل النشطة بأرقام الصفحات الرومانية.

مقالات ذات صلة:

كيفية طباعة الصفحة الأولى من كل ورقة بسرعة؟

كيفية طباعة الصفحة الحالية بسرعة في Excel؟

كيفية طباعة التعليقات بسرعة في Excel؟

كيفية طباعة البيانات في وسط الصفحة؟