طباعة صفحات مسلسلة بناءً على تحديد عددها في خلية

[الجزيرة]

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

 

حياكم الله أخواني الأعزاء

 

أرغب بكود يقوم بطباعة صفحات مسلسة بناءً على الرقم المدخل في خلية  B2  عند الضغط على زر الكود

 

مثال :

 

عندما اضع في الخلية  B2  رقم 5 واضغط على زر الكود يقوم بطباعة الصفحات من 1 إلى 5 وهكذا

 

مع خالص شكري وتقديري

 

أخوكم / ابو عبدالله

 

 

[رجب جاويش]

تفضل أخى

Sub print1()
If [B2] <> "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=[B2], Copies:=1, Collate _
        :=True
End If
End Sub

[ضاحي الغريب]

أخي الحبيب أستاذنا // رجب جاويش

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

بارك الله فيكم وجزاكم خيرا 

دائما سباق لفعل الخيرات واللهم يجعلها لكم في ميزان حسناتكم ويهيء لكم من امركم رشدا 

تقبل تحياتي

[الجزيرة]

أخي الحبيب رجب

 

جزاك الله خيرا وبارك فيك

 

======

أخي الحبيب ضاحي

 

شكراً للمتابعة الدائمة