كيفية طباعة الصفوف بشكل متكرر في أسفل كل صفحة مطبوعة في Excel؟

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

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

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

يمكنك تشغيل الكود التالي لـ VBA لإدراج الصف المحدد في تذييل كل صفحة. بعد ذلك يمكنك طباعة هذا الصف بشكل متكرر في أسفل كل صفحة مطبوعة في Excel.

1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Application.

2. في مربع الحوار Microsoft Visual Basic for Application، انقر فوق إدراج > وحدة. وبعد ذلك قم بنسخ ولصق الكود التالي لـ VBA في نافذة الوحدة.

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

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. اضغط على مفتاح F5 لتشغيل الكود. ثم ستظهر نافذة Kutools لـ Excel، يرجى تحديد الصف الذي تحتاج إلى طباعته بشكل متكرر في أسفل كل صفحة مطبوعة، وبعد ذلك انقر على زر موافق.

الآن تم إضافة محتويات الصف المحدد إلى تذييل كل صفحة مطبوعة في ورقة العمل الحالية. يمكنك البدء في طباعة ورقة العمل.

ملاحظة: إذا كنت تريد طباعة المحتوى المحدد بشكل متكرر في أسفل كل صفحة ضمن المصنف بالكامل، يمكنك تطبيق وظيفة التذييل لإدراج المحتويات في تذييل جميع الأوراق.