انتقل إلى المحتوى الرئيسي

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

في عمل 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations