Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية طباعة حدود حول كل صفحة في Excel؟

Author Xiaoyang Last modified

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


طباعة حدود حول كل صفحة عن طريق ضبط خطوط الشبكة

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

ملاحظات:

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

1. إذا كانت هناك حدود مخصصة موجودة، قم بإزالتها أولاً لتجنب التداخل أو الخطوط غير المتسقة في الطباعة. اختر الورقة، ثم انتقل إلى الصفحة الرئيسية > الحدود (الأيقونة) > لا حدود لمسح حدود جميع الخلايا المختارة:

click Home > Border icon > No Border

2. انتقل إلى تخطيط الصفحة > انقر فوق مشغل مربع الحوار إعداد الصفحة (السهم الصغير في زاوية المجموعة) لفتح مربع الحوار إعداد الصفحة:

click Page Layout > Page Setup arrow

3. في إعداد الصفحة، انتقل إلى علامة التبويب ورقة وحدد خطوط الشبكة تحت قسم الطباعة ليتم طباعة جميع خطوط الشبكة (بما في ذلك تلك الموجودة في حواف الصفحة):

check Gridlines under Print section

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

 a bold border around each pages will be printed

نصائح:

  • إذا كنت بحاجة إلى حدود أكثر سمكًا وبروزًا، ففكر في إضافة حدود خارجية يدويًا لمنطقة الطباعة أو استخدام ماكرو لرسم حدود الصفحة.
  • تجنب دمج/مناطق خلايا غير منتظمة؛ قد تكسر استمرارية خطوط الشبكة المطبوعة بصريًا.
  • قم دائمًا بمراجعة قبل الطباعة للتأكد من أن المظهر يلبي توقعاتك.
a screenshot of kutools for excel ai

اكتشف سحر Excel مع Kutools AI

  • التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
  • الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
  • برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
  • تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
  • ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

طباعة حدود حول كل صفحة بنقرة واحدة باستخدام Kutools لـ Excel

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

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد تثبيت Kutools لـ Excel، اتبع الخطوات التالية لإضافة حدود لكل صفحة:

1. قم بتفعيل الورقة التي تريد إضافة حدود لها، ثم انتقل إلى المؤسسة > الطباعة > إضافة حد لكل صفحة. شاهد لقطة الشاشة:
Click the Add Border to Each Page feature in Kutools for Excel

2. إذا ظهرت رسالة تحذير بأن جميع الحدود الموجودة ستُحذف إذا واصلت، تأكد من أنك قد قمت بحفظ عملك أو أكدت أن الكتابة فوق الحدود مقبولة. انقر نعم لمتابعة:
A dialog appears warning that all existing borders will be deleted

بمجرد التطبيق، سيتم تحديد كل صفحة من ورقة العمل الخاصة بك بحدود سميكة وواضحة، مما يجعل الإخراج المطبوع يبدو منظمًا وسهل التمييز. هذه الطريقة سريعة وتقلل من الجهد اليدوي.
A border has been added around each page of the sheet

نصائح وملاحظات:

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

طباعة حدود حول كل صفحة باستخدام أتمتة ماكرو 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 صفحة"). يمكنك تحسين كتل الصفحات عن طريق تغيير منطقة الطباعة أو إعدادات صفحة الطباعة وإعادة تشغيل الماكرو.


إضافة حد حول كل صفحة

 

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

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