كيفية طباعة حدود حول كل صفحة في Excel؟
عند العمل مع أوراق عمل كبيرة تمتد عبر مئات الصفحات، يصبح طباعة البيانات بتنسيق واضح واحترافي أمرًا ضروريًا. أحد الطرق لتحقيق ذلك هو إضافة حد حول كل صفحة مطبوعة، بحيث تكون الطباعة منفصلة بصريًا وأسهل في القراءة. على الرغم من أنه يمكنك تحديد وإضافة حدود لكل صفحة يدويًا في Excel، إلا أن هذا الأسلوب يستغرق وقتًا طويلاً وغير عملي عند التعامل مع صفحات متعددة. لحسن الحظ، هناك حلول أكثر كفاءة لإضافة حدود تلقائيًا حول كل صفحة في Excel. في هذه المقالة، سنستعرض عدة طرق عملية لتحقيق هذه المهمة، بما في ذلك الخيارات المدمجة والأساليب البديلة.
➤ طباعة حدود حول كل صفحة عن طريق ضبط خطوط الشبكة
➤ طباعة حدود حول كل صفحة بنقرة واحدة باستخدام Kutools لـ Excel

➤ طباعة حدود حول كل صفحة باستخدام أتمتة ماكرو VBA
طباعة حدود حول كل صفحة عن طريق ضبط خطوط الشبكة
بينما لا توفر Excel خيارًا مخصصًا لإضافة حد حول كل صفحة مطبوعة، يمكنك استخدام ميزة طباعة خطوط الشبكة لمحاكاة حدود الصفحة. هذا سريع ولا يتطلب إضافات. لاحظ أنه لن يتم إنشاء حد عريض للصفحة — تقوم Excel بطباعة جميع خطوط الشبكة، ويصبح حافة الصفحة محددة بصريًا بالخطوط الأخيرة المطبوعة.
ملاحظات:
- تعمل هذه الطريقة بشكل أفضل عندما تناسب ورقة العمل شبكة منتظمة ولا تعتمد على حدود مخصصة كثيرة.
- إذا كانت صفحتك تستخدم حدودًا مميزة للجداول، فقد تتداخل خطوط الشبكة المطبوعة بصريًا معها.
1. إذا كانت هناك حدود مخصصة موجودة، قم بإزالتها أولاً لتجنب التداخل أو الخطوط غير المتسقة في الطباعة. اختر الورقة، ثم انتقل إلى الصفحة الرئيسية > الحدود (الأيقونة) > لا حدود لمسح حدود جميع الخلايا المختارة:
2. انتقل إلى تخطيط الصفحة > انقر فوق مشغل مربع الحوار إعداد الصفحة (السهم الصغير في زاوية المجموعة) لفتح مربع الحوار إعداد الصفحة:
3. في إعداد الصفحة، انتقل إلى علامة التبويب ورقة وحدد خطوط الشبكة تحت قسم الطباعة ليتم طباعة جميع خطوط الشبكة (بما في ذلك تلك الموجودة في حواف الصفحة):
4. انقر على معاينة الطباعة لتأكيد النتيجة. عند الطباعة، ستظهر كل صفحة حدودًا واضحة مستطيلة الشكل تتكون من خطوط الشبكة الخارجية الأكثر طباعة، مما يحاكي حدود الصفحة. شاهد العينة:
نصائح:
- إذا كنت بحاجة إلى حدود أكثر سمكًا وبروزًا، ففكر في إضافة حدود خارجية يدويًا لمنطقة الطباعة أو استخدام ماكرو لرسم حدود الصفحة.
- تجنب دمج/مناطق خلايا غير منتظمة؛ قد تكسر استمرارية خطوط الشبكة المطبوعة بصريًا.
- قم دائمًا بمراجعة قبل الطباعة للتأكد من أن المظهر يلبي توقعاتك.

اكتشف سحر Excel مع Kutools AI
- التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
- برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
- تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
- ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
طباعة حدود حول كل صفحة بنقرة واحدة باستخدام Kutools لـ Excel
بالنسبة للمستخدمين الذين يريدون حدود صفحة ذات مظهر احترافي أكثر - خاصة في أوراق العمل ذات التنسيقات المعقدة أو عندما تكون خطوط الشبكة غير كافية - يقدم Kutools لـ Excel حلاً مريحًا: ميزة إضافة حدود لكل صفحة. يتيح لك هذا الأداة إضافة حدود صلبة لكل صفحة قابلة للطباعة في ورقة العمل النشطة بنقرة واحدة فقط، مما يوفر الوقت ويضمن مظهرًا متسقًا عبر جميع الصفحات.
بعد تثبيت Kutools لـ Excel، اتبع الخطوات التالية لإضافة حدود لكل صفحة:
1. قم بتفعيل الورقة التي تريد إضافة حدود لها، ثم انتقل إلى المؤسسة > الطباعة > إضافة حد لكل صفحة. شاهد لقطة الشاشة:
2. إذا ظهرت رسالة تحذير بأن جميع الحدود الموجودة ستُحذف إذا واصلت، تأكد من أنك قد قمت بحفظ عملك أو أكدت أن الكتابة فوق الحدود مقبولة. انقر نعم لمتابعة:
بمجرد التطبيق، سيتم تحديد كل صفحة من ورقة العمل الخاصة بك بحدود سميكة وواضحة، مما يجعل الإخراج المطبوع يبدو منظمًا وسهل التمييز. هذه الطريقة سريعة وتقلل من الجهد اليدوي.
نصائح وملاحظات:
- سيتم إزالة الحدود الموجودة من الورقة النشطة عند استخدام هذا الخيار.
- إذا كنت بحاجة إلى الاحتفاظ بحدود محددة، فكر في عمل نسخة احتياطية من ملفك أو ورقة العمل أولاً.
- يعمل هذا الخيار بشكل جيد لأوراق العمل الكبيرة مع صفحات طباعة متعددة تحتاج إلى حدود صفحة واضحة ومتسقة.
طباعة حدود حول كل صفحة باستخدام أتمتة ماكرو VBA
إذا كنت تريد أتمتة إضافة حد حول كل صفحة قابلة للطباعة - خاصةً للمهام المتكررة أو التصميمات المخصصة - يمكنك استخدام ماكرو VBA الذي يقرأ فواصل الصفحات في Excel ويرسم حدود الصفحة. يمنحك هذا التحكم الكامل في أسلوب الحدود وسمكها دون الاعتماد على الإضافات.
ملاحظات:
- يقوم الماكرو برسم حدود حول كل صفحة قابلة للطباعة فقط على الحواف الخارجية (أعلى/يسار/أسفل/يمين). لن يقوم الكتابة فوق الحدود الداخلية الموجودة داخل الخلايا.
- يعمل بشكل أفضل على الأوراق المنظمة جيدًا؛ قد تتطلب الخلايا المدمجة المعقدة أو مناطق الطباعة غير المعتادة بعض التعديلات البسيطة.
خطوات التشغيل:
1. اضغط على Alt + F11 لفتح محرر Visual Basic for Applications. انقر على إدراج > وحدة لإضافة وحدة جديدة.
2. انسخ والصق الكود التالي في الوحدة:
Sub AddBorderToEachPrintablePage()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim StartRow As Long, EndRow As Long
Dim StartCol As Long, EndCol As Long
Dim vRowBreaks As Variant, vColBreaks As Variant
Dim i As Long, j As Long
Dim oldDisp As Boolean
Dim f As Range
Set ws = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
' Check if sheet is empty
Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If f Is Nothing Then GoTo CleanUp
LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
' Force refresh of page breaks
oldDisp = ws.DisplayPageBreaks
ws.DisplayPageBreaks = True
' Collect horizontal page breaks (add top and bottom bounds)
vRowBreaks = Array(0)
For i = 1 To ws.HPageBreaks.Count
vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
Next i
vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))
' Collect vertical page breaks (add left and right bounds)
vColBreaks = Array(0)
For j = 1 To ws.VPageBreaks.Count
vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
Next j
vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))
' Draw only outer borders for each printable page
For i = 0 To UBound(vRowBreaks) - 1
StartRow = vRowBreaks(i) + 1
EndRow = vRowBreaks(i + 1)
For j = 0 To UBound(vColBreaks) - 1
StartCol = vColBreaks(j) + 1
EndCol = vColBreaks(j + 1)
With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Weight = xlThick
End With
End With
Next j
Next i
CleanUp:
ws.DisplayPageBreaks = oldDisp
Application.EnableEvents = True
Application.ScreenUpdating = True
If Not f Is Nothing Then
MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
End If
End Sub
Function ArrayJoin(a As Variant, b As Variant) As Variant
Dim temp() As Variant
Dim alen As Long, blen As Long, k As Long
alen = UBound(a) - LBound(a) + 1
blen = UBound(b) - LBound(b) + 1
ReDim temp(0 To alen + blen - 1)
For k = 0 To alen - 1
temp(k) = a(k)
Next k
For k = 0 To blen - 1
temp(alen + k) = b(k)
Next k
ArrayJoin = temp
End Function
3. عد إلى Excel، تأكد من أن ورقة العمل المستهدفة نشطة، وقم بتشغيل الماكرو باستخدام F5 (أو زر التشغيل). سيكتشف الماكرو فواصل الصفحات ويرسم حدًا سميكًا حول كل كتلة صفحة قابلة للطباعة.
نصائح:
- اضبط أسلوب الحدود/السمك عن طريق تعديل أقسام
xlEdge*
الأربعة (مثل.Weight = xlMedium
، اللون عبر.Color
). - إذا تم تعيين منطقة طباعة مخصصة، فإن فواصل الصفحات في Excel ستتبعها؛ تحقق من النتائج في معاينة الطباعة.
- احفظ مصنفك قبل تشغيل الماكرو. للاستخدام المتكرر، احفظه كملف ممكّن الماكرو (
.xlsm
). - إذا لم يتم العثور على أي محتوى، يخرج الماكرو بأمان مع رسالة (لمنع الأخطاء على الأوراق الفارغة).
إذا لم يعمل الماكرو كما هو متوقع، تحقق من وجود خلايا مدمجة، أو صفوف/أعمدة مخفية، أو إعدادات مقياس غير عادية (على سبيل المثال، "تناسب الصفحة لتكون عرض صفحة واحدة وطول N صفحة"). يمكنك تحسين كتل الصفحات عن طريق تغيير منطقة الطباعة أو إعدادات صفحة الطباعة وإعادة تشغيل الماكرو.
إضافة حد حول كل صفحة
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد