كيفية طباعة جميع الأوراق باستثناء ورقة واحدة محددة في إكسيل؟
في عمل Excel ، قد تكون طباعة الأوراق هي الوظيفة اليومية العامة بالنسبة لك. ومع ذلك ، هل سبق لك أن حاولت طباعة جميع الأوراق باستثناء ورقة واحدة محددة؟ على سبيل المثال ، مصنف هنا ، تريد طباعة جميع الأوراق باستثناء الورقة المسماة "إجمالي" ، كيف يمكنك التعامل معها بسرعة؟
اطبع كل الأوراق باستثناء ورقة واحدة باستخدام VBA
اطبع صفحات معينة تحتاجها باستخدام Kutools for Excel
اطبع كل الأوراق باستثناء ورقة واحدة باستخدام 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
ملحوظة: في الكود ، ملف المجموع in إذا كان xWs.Name <> "إجمالي" ثم و MsgBox "لم تتم طباعة إجمالي الورقة" هو اسم الورقة الذي لا تريد طباعته ، و A1: B15 in .PrintArea = "A1: B15" هو النطاق الذي تريد طباعته لكل ورقة. يمكنك تغييرها كما تريد.
3. صحافة F5 مفتاح لتشغيل التعليمات البرمجية ، ثم ينبثق مربع حوار لتذكيرك بأن الورقة المحددة لم تتم طباعتها. انظر لقطة الشاشة:
4. انقر OK لإغلاق الحوار.
اطبع صفحات معينة تحتاجها باستخدام Kutools for Excel
إذا كنت تريد فقط طباعة الصفحات الزوجية أو الفردية فقط ، أو صفحات معينة من الورقة ، فيمكنك التقديم Kutools for Excelالصورة طباعة الصفحات المحددة الأداة التي يمكن أن تقدم لك معروفًا بسرعة.
| Kutools for Excel, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تثبيت Kutools for Excel، يرجى القيام بما يلي :(تحميل مجانا Kutools for Excel الآن!)
1. قم بتنشيط الورقة التي تريد طباعة صفحات معينة فيها ، انقر فوق كوتولس بلس > الطباعة > طباعة الصفحات المحددة. انظر لقطة الشاشة:
2. ثم في طباعة الصفحات المحددة مربع الحوار ، تحقق من الخيارات بناءً على احتياجات الطباعة الخاصة بك. انظر لقطة الشاشة:
3. انقر طباعة لطباعة الصفحات.
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
