كيف تطبع عدد من النسخة لورقة العمل

[السندباد]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،

اخواني الكرام :

لدي ملف يحتوي على عدد 6 اوراق عمل وعند الطباعة اقوم بتحديد كافة الاوراق ومن ثم اختيار طباعة !!!

السؤال :
كيف استطيع ان اطبع عدد 3 نسخة للورقة رقم 2 بامر واحد لكافة الاوراق؟؟
ودمتم بود

[السندباد]

معقوله مافيه احد يعرف والقراء فوق الـ 45

[فلسطيني]

جرب هذا الكود

Sub prnt()
Sheets("æÑÞÉ2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
End Sub

[فلسطيني]

مع إمكانية تعديل اسم الشيت حسب ما هو موجود عندك

[السندباد]

مشكور اخي فلسطيني

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

شكراً واسمحنا على التعب

[فلسطيني]

Sub prnt()
Sheets("خلاصة").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
End Sub

[السندباد]

شكرا اخي الكريم