أوامرطباعة

[أبو جاسم]

السلام عليكم

عندي ملف في كل الموظفين وبياناتهم كامله

وهاعمل لكل موظف تغيي حالة يعني هايتغير في بياناته وهايتعمل لكل موظف ورقة لوحده

هل يمكن وجود أمر طباعة يخليني اطبع كل الموظفين ورا بعض

زي مثلا لو حبيت أطبع بطريقة التقارير في الأكسس

 

يوجد ملف مرفق

مع الشكر

معادلة.rar

[طارق محمود]

السلام عليكم
جرب هذا الكود وأنت في الصفحة الثانية

Sub n_print()
 
LR = Sheets(1).[B9999].End(xlUp).Row
rr = 3
5   If IsEmpty(Sheets(1).Cells(rr, 3)) Then GoTo 10
    If rr > LR Then Exit Sub
    [E16] = Sheets(1).Cells(rr, 2)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
10  rr = rr + 1
GoTo 5

End Sub

أو تفضل المرفق به زر

معادلة.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

سلمت يداك .. حل مبدع وبسيط  ... جزاك الله خيرا

هل يمكن اضافه

اخى الحبيب هل يمكن تحد ما يتم طباعة  من... الى  على اساس التسلسل

اى  عن استخدام الكود يظهر بوكس ادخال من    الى      على اساس التسلسل

من 1 الى  5  يتم طباعه الموظفين من واحد الى 5

اة من 1 الى  1  يتم طباعه ورقه الموظف الذى تسلسه  1

جزاك الله كل الخير والتقدير

[أبو جاسم]

السلام عليكم

تسلم ايدك يااساذ طارق ، شغلك عالي جدااااا   ما شاء الله

 

بس هل ممكن تطبيق التسلسل في الطباعة

يعني مثلا من التسلسل 1 الي التسلسل اللي محتاجينه