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

[mohmed26eg]

لدى شيت اكسيل خاص بالمخزن اقوم بطباعته للتسجيل فيه اقوم بترقيم الشيت يدوى ارغب فى معادله حيث اضع الارقام التى ارغب فى طباعتها بين مدى معين من 1 الى 100 مثلا فيقوم بطباعه 100 نموذج من هذا الملف كل نموذج يحمل رقم امر شغل رقم 1 امر شغل رقم 2 امر شغل رقم 3 وهكذا الى مائه وشكرا جزيلا استاذتنا الافاضل 

نموذج اكسيل لشيت اضافة.xlsx

[حسين مامون]

ما فهمت في طلبك 

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

Sub printTOUS()
Dim x
Dim printx

printx = InputBox("ادخل اي عدد النسخ التي تريد طباعته")
If printx = "" Then Exit Sub
For x = 1 To printx
Range("L6") = x
Range("A1:L23").printOUT
Next x
Range("L6") = ""
End Sub

 

نموذج اكسيل لشيت اضافة.xlsm

[mohmed26eg]

شكرا جزيلا اخى شكرا جزيلا

ممكن لو طبعت اول مرة 10 صفحات مترقمين من 1 الى 10 تانى مرة عايز اطبع 10 صفحات مترقمين من 11 الى 20 فيه نفس المعادلة بس باضع الرقم اللى عايز ابدا بيه فى خليه والرقم اللى عايز انتهى بيه فى خليه وهو بيطبع ما بينهم وشكرا جزيلا جزيلا لحضرتك ا حسن مامون

نفس اللى فى الصورة اخى انا شاكر جدا لمجهودك وردك وتعبك انا ارغب ان اقوم بوضوع الرقم فى البداية والرقم فى النهايو وهو يقوم بترقيم على اساس التسلسل ما بين الرقمين عايز اطبع 10 صفحات مترقمين من 11 الى 20 فيه نفس المعادلة بس باضع الرقم اللى عايز ابدا بيه فى خليه والرقم اللى عايز انتهى بيه فى خليه وهو بيطبع ما بينهم وشكرا جزيلا جزيلا لحضرتك ا حسن مامون

[حسين مامون]

تفضل

نموذج اكسيل لشيت اضافة.xlsm

[mohmed26eg]

تعجز الكلمات عن شكرك اخى جزاك الله خيرا وبارك لك فى علمك 

[حسين مامون]

وجزيت خيرا اخي الكريم