كيف يمكن تعيين منطقة الطباعة لأوراق عمل متعددة دفعة واحدة في Excel؟
بشكل عام، يمكنك تعيين منطقة طباعة واحدة فقط في كل مرة ضمن ورقة عمل واحدة في Excel. ولكن إذا كنت ترغب في تطبيق نفس منطقة الطباعة على أوراق عمل متعددة داخل المصنف نفسه، فهل هناك طرق سريعة لتحقيق ذلك؟ سأشرح لك الآن بالتفصيل الطرق الفعّالة لتعيين نفس منطقة الطباعة عبر أوراق عمل متعددة دفعة واحدة.
تعيين نفس منطقة الطباعة إلى أوراق عمل متعددة باستخدام Kutools لـ Excel
تعيين نفس منطقة الطباعة إلى أوراق عمل متعددة باستخدام VBA
تعيين نفس منطقة الطباعة إلى أوراق عمل متعددة باستخدام Kutools لـ Excel
Kutools لـ Excelهو إضافة مفيدة لبرنامج Excel، ويمكن لميزةنسخ إعدادات الصفحةالخاصة به مساعدتك على تعيين منطقة الطباعة بسرعة عبر أوراق عمل متعددة.
Kutools لـ Excelتتضمّن أكثر من 300 أداة مفيدة لـ Excel. جرّبها مجانًا دون أي قيود لمدة 30 يومًا! احصل عليها الآن
1. حدد منطقة الطباعة في إحدى أوراق العمل، ثم انقر فوقتخطيط الصفحة > منطقة الطباعة > تعيين منطقة الطباعة. راجع لقطة الشاشة:
2. انقر فوقKUTOOLS PLUS > الطباعة > نسخ إعدادات الصفحة.
3. في مربع الحوارنسخ إعدادات الصفحة، حدد الأوراق التي تريد تعيين منطقة الطباعة لها في الوقت نفسه، ثم انقر فوق علامة التبويبورقة، وفعّل خيارمنطقة الطباعةفقط ضمن قسمإعدادات الصفحة. راجع لقطة الشاشة:
4. بعد ذلك، انقر فوقموافقلإغلاق مربع الحوار، ثم انقر فوقنعمفي مربع تحذيرKutools لـ Excelالظاهر، وبذلك يتم تعيين نفس منطقة الطباعة على الأوراق المحددة دفعة واحدة.
انقر هنا لمعرفة المزيد عن نسخ إعدادات الصفحة.
تعيين نفس منطقة الطباعة إلى أوراق عمل متعددة باستخدام VBA
إذا كنت مهتمًّا بلغة VBA، جرّب الكود التالي!
1. حدد النطاق الذي تريد تعيينه كمنطقة طباعة في إحدى أوراق العمل، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقوحدة البرمجة (Module) > إدراجلإدراج نافذةوحدة البرمجة (Module)، ثم انسخ كود VBA أدناه إلى تلك النافذة.
VBA: تعيين منطقة الطباعة لجميع أوراق المصنف دفعة واحدة.
Sub SetGlobalPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub
3. انقر فوق زرتشغيللتنفيذ كود VBA، وفور الانتهاء، سيتم تعيين نفس منطقة الطباعة على جميع أوراق العمل في المصنف.
تلميح:
إذا كنت ترغب في تعيين منطقة الطباعة في الأوراق المحددة، فيمكنك اتباع الخطوات التالية:
1. حدد النطاق الذي تريد تعيينه كمنطقة طباعة، ثم اضغط مع الاستمرار على مفتاحCtrl لتحديد أوراق العمل المطلوبة، وبعد ذلك اضغط على مفاتيحAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقوحدة البرمجة (Module) > إدراجلإدراج نافذة وحدة البرمجة، ثم انسخ كود VBA أدناه إلى تلك النافذة.
VBA: قم بتعيين منطقة الطباعة في الأوراق المحددة.
Sub SetSelectWsPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWindow.SelectedSheets
xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل