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

يمكننا بسهولة إدراج رقم الصفحة الروماني في 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؟

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