كيفية طباعة جميع الأوراق باستثناء ورقة واحدة محددة في إكسيل؟
في عمل Excel ، قد تكون طباعة الأوراق هي الوظيفة اليومية العامة بالنسبة لك. ومع ذلك ، هل سبق لك أن حاولت طباعة جميع الأوراق باستثناء ورقة واحدة محددة؟ على سبيل المثال ، مصنف هنا ، تريد طباعة جميع الأوراق باستثناء الورقة المسماة "إجمالي" ، كيف يمكنك التعامل معها بسرعة؟
اطبع كل الأوراق باستثناء ورقة واحدة باستخدام VBA
اطبع صفحات معينة تحتاجها باستخدام كوتولس ل إكسيل
اطبع كل الأوراق باستثناء ورقة واحدة باستخدام 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 لإغلاق الحوار.
اطبع صفحات معينة تحتاجها باستخدام كوتولس ل إكسيل
إذا كنت تريد فقط طباعة الصفحات الزوجية أو الفردية فقط ، أو صفحات معينة من الورقة ، فيمكنك التقديم كوتولس ل إكسيلالصورة طباعة الصفحات المحددة الأداة التي يمكن أن تقدم لك معروفًا بسرعة.
كوتولس ل إكسيل, مع أكثر من 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!