طبعة كل الشهادات

[الحديثة]

مرفق شيت للصف الثانى وبة طباعة 3 شهادات واريد طباعة كل الشهادات بامر طباعة واحد مع الشرح لو امكن ذلك لاننى اتعلم منكم الكثير

[جلال محمد]

اخى

اين الملف ؟؟؟؟؟؟؟؟؟؟

[الحديثة]

المرفق الاخ العزيز مع سرعة الرد لو امكن ذلك

___________.rar

[احمدزمان]

السلام عليكم

بعد اذن اخي الفاضل جلال

تم وضع اكبر قيمة في لعمود التسلسل لصفحة الشهادات في الخلية O1

ثم الكوود التالي

Sub ãÇßÑæ1()
Dim Q
For Q = 1 To 11 '[O1]
[O2] = Q
    Calculate
    ActiveWindow.SelectedSheets.PrintPreview
'    ActiveWindow.SelectedSheets.PrintOut Copies:=1
Q = Q + 2
Next Q

End Sub

تم تعيين متغير اسمة Q

هذا المتغير من رقم 1 الى قيمة الخلية O1 و التي بها اكبر رقم تسلسل

طبعا دالة LOOKUP بتعمل على قيمة الخلية O2

لذلك يتم وضع قيمة المتغير في O2ليتم الحساب بموجبها

ثم الطباعة

ثم نضيف رقمين للمتغير لكي تكون الزيادة بمعدل 3 ارقام لكل دورة

===============================

اضغط على صورة الطابعة الموجودة في الصفحة و يعمل الماكرو

مع التحية

___________.rar

[الحديثة]

شكر وتقدير واحترام للاستاذ / جلال والاستاذ/ احمد يعقوب على التعاون ونحن تلاميذكم نتعلم منكم وشكر خاص لهذا المنتدى الذى نتعلم و نسبح فى بحور علمة بتوجيهات اساتذة اجلاء وادعو العلى القدير ان يجعل ما تقدموه من علم فى ميزان اعمالكم