نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية طباعة اختيارات متعددة على صفحة واحدة في إكسيل؟

إذا كان لديك ورقة عمل كبيرة تحتوي على الكثير من البيانات، والآن، تريد طباعة بعض النطاقات المحددة التي هي غير مستمرة في صفحة واحدة، بحيث يمكنك حفظ الكثير من الورق. يوفر إكسيل تعيين طباعة أرير ميزة بالنسبة لنا لطباعة التحديدات متعددة في آن واحد، ولكن، سيتم طباعة كل نطاقات مختارة في صفحة واحدة على حدة. ستتحدث هذه المقالة عن كيفية طباعة اختيارات متعددة غير مستمرة على صفحة واحدة.

اطبع اختيارات متعددة من ورقة عمل واحدة في صفحة واحدة تحتوي على شفرة فبا

طباعة اختيارات متعددة من ورقة عمل واحدة أو متعددة على صفحة واحدة مع كوتولس ل إكسيل


اطبع اختيارات متعددة من ورقة عمل واحدة في صفحة واحدة تحتوي على شفرة فبا


لطباعة اختيارات متعددة غير متجاورة مختارة من ورقة عمل واحدة في صفحة واحدة، قد تساعدك التعليمات البرمجية فبا التالية، يرجى القيام بما يلي:

1. صحافة CTRL مفتاح لتحديد النطاقات التي تريد طباعتها.

2. اضغط باستمرار ALT + F11 مفاتيح، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز فبا: طباعة اختيارات متعددة في صفحة واحدة

Sub PrintOutRange()
'Update 20150528
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. ثم اضغط F5 مفتاح تشغيل هذا الرمز، وسيتم طباعة النطاقات المحددة في وقت واحد، وسيتم طباعتها في صفحة واحدة.


طباعة اختيارات متعددة من ورقة عمل واحدة أو متعددة على صفحة واحدة مع كوتولس ل إكسيل

يمكن أن تساعدك التعليمات البرمجية أعلاه فقط على طباعة النطاقات المحددة من ورقة عمل واحدة، إذا كنت ترغب في طباعة عدة اختيارات من عدة أوراق عمل في صفحة واحدة، فلن تعمل الشفرة أعلاه. من فضلك لا تقلق، هنا، يمكن أن أعرض لكم أداة قوية - كوتولس ل إكسيل، بما لديها طباعة معالج اختيار متعددة ، يمكنك طباعة التحديدات من ورقة عمل واحدة أو أوراق عمل متعددة إلى صفحة واحدة في آن واحد.

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

بعد تثبيت كوتولس ل إكسيل، يرجى اتباع الخطوات التالية:

1. انقر مشروع > الطباعة > طباعة معالج اختيار متعددة، انظر الصورة:

دوك طباعة اختيارات متعددة شنومك

2. في طباعة معالج اختيار متعددة، اضغط هنادوك إضافة زر الزر لتحديد وإضافة النطاق الذي تريد طباعته في "النطاقات" إلى مربع قائمة الطباعة واحدا تلو الآخر، (يمكنك تحديد النطاقات من ورقة عمل واحدة أو أوراق عمل متعددة)، ثم انقر فوق دوك إزالة زر زر يمكن إزالة النطاقات التي لا تحتاج إليها، انظر الصورة:

دوك طباعة اختيارات متعددة شنومك

3. بعد إضافة التحديدات في مربع القائمة، الرجاء النقر التالي >> زر للانتقال إلى الخطوة شنومك من المعالج، حدد إعدادات الطباعة كما تحتاج، ويمكنك إضافة صف فارغ بين النطاقات المحددة عن طريق الاختيار إضافة صف فارغ بين النطاقات الخيار، انظر الصورة:

دوك طباعة اختيارات متعددة شنومك

4. ثم انتقل على النقر التالي >> البوتون، في الخطوة شنومكس من المعالج، حدد الإجراء لورقة العمل المؤقتة، يمكنك تنشيط ورقة العمل ولكن لا طباعة، طباعة ورقة العمل والاحتفاظ بها أو طباعة ورقة العمل وحذفه. انظر لقطة الشاشة:

دوك طباعة اختيارات متعددة شنومك

5. انقر نهاية ، تم لصق كافة النطاقات المحددة في ورقة عمل جديدة ككائنات صور مرتبطة. ويمكنك سحبها وإعادة ترتيبها في ورقة العمل. انظر لقطة الشاشة:

دوك طباعة اختيارات متعددة شنومك

6. عند طباعة ورقة العمل الجديدة هذه، سيتم طباعة النطاقات في صفحة واحدة كما تحتاج.

انقر لمعرفة المزيد حول هذه الأداة المساعدة "معالج اختيار طباعة متعددة".

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


عرض توضيحي: طباعة اختيارات متعددة من ورقة عمل واحدة أو متعددة على صفحة واحدة مع كوتولس ل إكسيل

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined.

    This line is highlighted: Set [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)