كيفية طباعة التذييل على الصفحة الأخيرة فقط في Excel؟

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

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

يرجى تشغيل الكود التالي VBA لطباعة تذييل مخصص على الصفحة المطبوعة الأخيرة فقط في Excel.

1. افتح ورقة العمل التي تريد طباعتها، وقم بتعيين تذييل مخصص ليظهر على الصفحة الأخيرة فقط.

2. اضغط على مفتاحي "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".

3. في نافذة "Microsoft Visual Basic for Applications"، انقر فوق "إدراج" > "وحدة". ثم قم بنسخ الكود التالي VBA في نافذة "الوحدة (الكود)".

كود VBA: طباعة التذييل على الصفحة الأخيرة فقط

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

ملاحظة: في الكود، يرجى استبدال هذا النص "اكتب معلومات التذييل الخاص بك هنا" بمعلومات التذييل الخاصة بك.

4. اضغط على مفتاح "F5" لتشغيل الكود.

ثم سيتم طباعة ورقة العمل النشطة مع إدراج التذييل المخصص على الصفحة المطبوعة الأخيرة فقط.