Note: The other languages of the website are Google-translated. Back to English

كيفية طباعة جميع الأوراق باستثناء ورقة واحدة محددة في إكسيل؟

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

اطبع كل الأوراق باستثناء ورقة واحدة باستخدام VBA

اطبع صفحات معينة تحتاجها باستخدام كوتولس ل إكسيلفكرة جيدة 3


اطبع كل الأوراق باستثناء ورقة واحدة باستخدام VBA

فيما يلي رمز VBA يمكنه طباعة جميع الأوراق باستثناء ورقة واحدة محددة.

1. قم بتنشيط المصنف الذي تريد طباعة الأوراق ، واضغط على ALT + F11 لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > مجمع نموذجيهـ ، الصق الكود أدناه في البرنامج النصي للوحدة.

VBA: طباعة ورقة باستثناء واحدة

Sub printsheets()
'UpdatebyExtendoffice20161031
 Dim xWs As Worksheet
 Application.ScreenUpdating = False
 For Each xWs In ThisWorkbook.Worksheets
  If xWs.Visible = True Then
   If xWs.Name <> "Total" Then
       With xWs.PageSetup
        .PrintArea = "A1:B15" ' USE YOUR PRINTAREA
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
       End With
       xWs.PrintOut
   End If
  End If
 Next xWs
 Application.ScreenUpdating = False
 MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub

doc طباعة الكل باستثناء 1

ملاحظة: في الكود ، ملف المبلغ الإجمالي in إذا كان xWs.Name <> "إجمالي" ثم و MsgBox "لم تتم طباعة إجمالي الورقة" هو اسم الورقة الذي لا تريد طباعته ، و A1: B15 in .PrintArea = "A1: B15" هو النطاق الذي تريد طباعته لكل ورقة. يمكنك تغييرها كما تريد.

3. صحافة F5 مفتاح لتشغيل التعليمات البرمجية ، ثم ينبثق مربع حوار لتذكيرك بأن الورقة المحددة لم تتم طباعتها. انظر لقطة الشاشة:
doc طباعة الكل باستثناء 2

4. انقر OK لإغلاق الحوار.


اطبع صفحات معينة تحتاجها باستخدام كوتولس ل إكسيل

إذا كنت تريد فقط طباعة الصفحات الزوجية أو الفردية فقط ، أو صفحات معينة من الورقة ، فيمكنك التقديم كوتولس ل إكسيلالصورة طباعة الصفحات المحددة الأداة التي يمكن أن تقدم لك معروفًا بسرعة.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)

1. قم بتنشيط الورقة التي تريد طباعة صفحات معينة فيها ، انقر فوق كوتولس بلس > الطباعة > طباعة الصفحات المحددة. انظر لقطة الشاشة:
doc طباعة الكل باستثناء 3

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

3. انقر طباعة لطباعة الصفحات.

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL