كيف تطبع حدودًا حول كل صفحة في Excel؟
عند العمل مع أوراق عمل ضخمة تمتد عبر مئات الصفحات، يصبح طباعة البيانات بتنسيقٍ واضح واحترافي أمرًا لا غنى عنه. وإحدى أفضل الطرق لتحقيق ذلك هي إضافة حدٍّ حول كل صفحة مطبوعة، ما يجعل النسخة المطبوعة منفصلة بصريًّا وأسهل في القراءة. وعلى الرغم من إمكانية تحديد الحدود وتطبيقها يدويًّا على محتوى كل صفحة في Excel، فإن هذا الأسلوب يستغرق وقتًا طويلاً للغاية وغير عملي عند التعامل مع عدد كبير من الصفحات. لحسن الحظ، توجد حلول أكثر كفاءة تتيح لك إضافة حدود تلقائيًّا حول كل صفحة في Excel. وفي هذه المقالة، سنستعرض عدة طرق عملية لتحقيق هذه المهمة، بما في ذلك الخيارات المدمجة والبدائل الذكية الأخرى.
➤ طباعة حدود حول كل صفحة باستخدام إعداد خطوط الشبكة
➤ طباعة حدود حول كل صفحة بنقرة واحدة باستخدام Kutools لـ Excel
➤ طباعة حدود حول كل صفحة باستخدام أتمتة ماكرو VBA
طباعة حدود حول كل صفحة باستخدام إعداد خطوط الشبكة
على الرغم من أن Excel لا يوفّر خيارًا مخصصًا لإضافة حد حول كل صفحة مطبوعة، يمكنك استخدام ميزةطباعة خطوط الشبكةلمحاكاة حدود الصفحات. إنها طريقة سريعة ولا تتطلب أي إضافات! لاحظ أنها لن تُنشئ مخطط صفحة غامقًا—بل سيطبع Excel جميع خطوط الشبكة، مما يجعل حافة الصفحة مُعرَّفة بصريًّا بواسطة آخر خطوط شبكة مطبوعة.
ملاحظات:
- تعمل هذه الطريقة بأفضل صورة عندما يكون جدولك متوافقًا مع تخطيط شبكة منتظمة ولا يعتمد على حدود مخصصة كثيفة.
- إذا كان جدولك يستخدم بالفعل حدودًا مميزة، فقد تتصادم خطوط الشبكة المطبوعة معها بصريًّا.
1. إذا كانت هناك حدود مخصصة موجودة، فاحذفها أولًا لتجنب التداخل أو عدم التناسق في الخطوط عند الطباعة. حدد الورقة، ثم انتقل إلىالصفحة الرئيسية > الحدود (الأيقونة) > بلا حدودلمسح الحدود من جميع الخلايا المحددة:
2. انتقل إلىتخطيط الصفحة، ثم انقر على مشغّل مربع الحوارإعدادات الصفحة (السهم الصغير في زاوية المجموعة) لفتح مربع حوار إعدادات الصفحة.
3. فيإعدادات الصفحة، انتقل إلى علامة التبويبورقةوفعّل خيارخطوط الشبكةضمن قسمالطباعةليتم طباعة جميع خطوط الشبكة (بما في ذلك تلك الموجودة عند حواف الصفحة):
4. انقر علىمعاينة الطباعةللتحقق من النتيجة. عند الطباعة، ستعرض كل صفحة حدًّا شبكيًّا مستطيلًا واضحًا مكوَّنًا من آخر خطوط الشبكة المطبوعة، مما يُحاكي حد الصفحة. راجع المثال:
نصائح:
- إذا كنت تبحث عن حدود أكثر سُمكًا ووضوحًا، ففكّر في إضافة حدود خارجية يدويًّا إلى منطقة الطباعة أو استخدام ماكرو لرسم مخططات الصفحات.
- تجنب مناطق الخلايا المدمجة أو غير المنتظمة، إذ قد تُربك الاستمرارية البصرية لخطوط الشبكة المطبوعة.
- راجع المعاينة دائمًا قبل الطباعة للتأكد من أن المظهر يتطابق مع توقعاتك.
افتح سحر إكسل مع 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل