كيفية تعيين منطقة الطباعة لعدة أوراق عمل في نفس الوقت في 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 لفتح نافذة Microsoft Visual Basic For Applications.

2. انقر فوق Module > إدراج لإدراج نافذة Module، وانسخ الكود البرمجي أدناه إلى النافذة.

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. انقر فوق زر تشغيل لتشغيل الكود البرمجي، وبعد ذلك سيتم تعيين جميع الأوراق في المصنف بنفس مناطق الطباعة.

نصيحة:

إذا كنت تريد تعيين منطقة الطباعة في الأوراق المحددة، يمكنك القيام بما يلي:

1. حدد النطاق الذي تريد تعيينه كمنطقة طباعة، ثم حدد الأوراق عن طريق الضغط على مفتاح Ctrl للأوراق التي تحتاجها، ثم اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic For Applications.

2. انقر فوق Module > إدراج لإدراج نافذة Module، وانسخ الكود البرمجي أدناه إلى النافذة.

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