كيف تطبع جميع الأوراق في Excel باستثناء ورقة واحدة محددة؟
عند العمل في Excel، تُعد طباعة أوراق متعددة مهمةً شائعة. لكن ماذا لو احتجتَ إلى طباعة جميع أوراق المصنف باستثناء ورقة واحدة محددة؟ على سبيل المثال، قد ترغب في طباعة كل الأوراق ما عدا الورقة التي تحمل اسم «Total». في هذا الدليل، سنرشدك خطوة بخطوة إلى طريقتين سريعين لاستبعاد ورقة معيّنة من الطباعة.
طباعة جميع الأوراق باستثناء ورقة واحدة باستخدام VBA
اطبع الصفحات التي تحتاجها باستخدام Kutools لـ Excel
طباعة جميع الأوراق باستثناء ورقة واحدة باستخدام VBA
إليك كود VBA الذي يُمكّنك من طباعة جميع الأوراق باستثناء ورقة واحدة محددة.
1. فعّل المصنف الذي تريد طباعة الأوراق منه، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
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
ملاحظة:في الكود، تمثّل الكلمةTotal الموجودة في السطرIf xWs.Name «Total» Then وفي سطرMsgBox «Sheet Total have not been printed» اسم الورقة التي لا ترغب في طباعتها، بينما تمثّلA1:B15 الموجودة في.PrintArea = "A1:B15" النطاق الذي تريد طباعته من كل ورقة. يمكنك تعديلها بسهولة لتلبية احتياجاتك.
3. اضغط على مفتاحF5 لتشغيل الكود، وستظهر لك نافذة منبثقة لتذكيرك بأن الورقة المحددة لم تُطبع. راجع لقطة الشاشة:
4. انقر على زرموافقلإغلاق النافذة المنبثقة.
اطبع الصفحات التي تحتاجها باستخدام Kutools لـ Excel
إذا كنت ترغب فقط في طباعة الصفحات الزوجية أو الفردية، أو صفحات محددة من ورقة ما، فاستخدم أداةKutools لـ Excel’s طباعة صفحات محددةالتي ستساعدك بسرعة!
1. فعّل الورقة التي تريد طباعة صفحات محددة منها، ثم انقر علىKUTOOLS PLUS > الطباعة > طباعة صفحات محددة. راجع لقطة الشاشة:
2. بعد ذلك، في مربع حوارطباعة صفحات محددة، اختر الخيارات التي تناسب احتياجاتك في الطباعة. راجع لقطة الشاشة:
3. انقر على زرطباعةلطباعة الصفحات.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل