طباعة محددة من الى

[مهند الزيدي]

السلام عليكم ..

ممكن عمل كود للفورم بحيث يقوم بطباعة من رقم وصل الى رقم ثاني ( 50 ) وصل ..والشرح داخل المرفق ..

وفقكم الله لكل خير

طباعة محددة.rar

[مهند الزيدي]

للرفع

 

[مهند الزيدي]

للرفع

[سليم حاصبيا]

يمكن ان يكون المطلوب

 

 

طباعة محددة salim.rar

تم تعديل أبريل 24, 2016 بواسطه سليم حاصبيا

[مهند الزيدي]

شكرا لك أخي العزيز " سليم " .. وفقك الله لكل خير ..

ولكن أريد عند إدخال التسلسل من الى في الفورم تظهر النائج في شيت الطباعة كما مبين في الشيت ..وكذلك نفس تنسيق الجدول في شيت الطباعة .. أي أن النتيجة هي ورقة الطباعة كما موضح في الصورة ... مع شكري وتقديري..

[مهند الزيدي]

للرفع

[مهند الزيدي]

للرفع

[سليم حاصبيا]

تم معالجة الامر

,ذلك باضافة صفحة مساعدة test

طباعة محددة salim advanced.rar

[مهند الزيدي]

شكرا لك اخي العزيز " سليم " .. وفقك الله لكل خير ..

بقي جزء صغير وهو إضافة صف المجموع الكلي لل ( 50 ) وصل كما مبين .. وذلك كما موضح في شيت الطباعة وبنفس تنسيق الحدود الموجود فيها لسطر المجموع .. وهل يمكن أن يكون الترحيل لشيت الطباعة بدلا من شيت test ....وفقك الله لكل خير

[سليم حاصبيا]

تم معالجة الامر

بالنسبة لاسم الشيت ما الفرق في ذلك (يمكنك مسح شيت الطباعة و التعامل مع شيت test)

صراحة انا لا احب التعامل مع اللغة العربية بالنسبة للأكواد نظراً لمشاكلها المعقدة

 

طباعة محددة salim advanced_majmou3.rar

[مهند الزيدي]

شكرا لك أخي العزيز " سليم " .. عند تطبيق التعديل وكتابة اول وصل واخر وصل (50) وصل يقوم بحذف صف من شيت البيانات وتكون شيت TEST بهذه الصورة المرفقة .. واتمنى أن لا اكون أثقلت عليك

[سليم حاصبيا]

لا اعلم السبب

لكن عندي بغمل الكود بامتياز

جرب اضافة هذا السطر على الكود (مباشرة بعد السطر الخامس) ليصبح هو السادس

Sheets("البيانات").Range("b2:e" & lr).Value = Sheets("البيانات").Range("b2:e" & lr).Value

طباعة محددة salim advanced_majmou3 A.rar

تم تعديل أبريل 27, 2016 بواسطه سليم حاصبيا

[مهند الزيدي]

أخي العزيز " سليم " أتمنى أن أكون خفيف الظل لقد تعبت معي كثيرا ...أتمنى من الله أن يوفقك يجزيك خيراً ..

جربت الإدخال تمام ماعدا الإدخال من تسلسل 276201 الى 276250 يقوم بحذف صفوف من شيت البيانات ..جرب الطباعة بالتسلسل المذكور أكثر من مرة وسترى أنه دائما يحذف صفوف متفرفة ..

وممكن عمل تخطيط حدود للجدول في شيت test .. مع شكري وتقديري لك أخي العزيز

[سليم حاصبيا]

تم معالجة الامر

 

طباعة محددة salim advanced_majmou3 b.rar

[مهند الزيدي]

شكرا لك أخي العزيز " سليم " وفقك الله لكل خير وجعله في ميزان حسناتك