كيفية طباعة التذييل في الصفحة الأخيرة فقط في Excel؟
بشكل افتراضي ، مع المدمج في تذييل الرأس ميزة Excel ، يمكنك بسهولة إضافة تذييلات أسفل كل صفحة مطبوعة في ورقة العمل. إذا كنت تريد إضافة تذييل إلى آخر صفحة مطبوعة فقط في ورقة العمل ، فكيف يمكنك القيام بذلك؟ يوفر هذا البرنامج التعليمي برنامج نصي لـ VBA لمساعدتك في إنجاز هذه المهمة خطوة بخطوة.
اطبع التذييل في الصفحة الأخيرة فقط باستخدام رمز VBA
يرجى تشغيل التعليمات البرمجية لـ VBA التالية لطباعة تذييل مخصص في آخر صفحة مطبوعة فقط في Excel.
1. افتح ورقة العمل التي تريد طباعتها مع عرض تذييل مخصص في آخر صفحة مطبوعة فقط.
2. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز 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 مفتاح لتشغيل الكود.
ثم ستتم طباعة ورقة العمل النشطة مع إدراج التذييل المخصص في آخر صفحة مطبوعة فقط.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!