طلب تعديل كود function للطباعة ملفات الوورد من الاكسس

[أبو نادر]

السلام عليكم

كل عام وانتم بخير ان شاء الله وشهر مبارك علينا وعليكم

اتمنى تعديل كود الفنكشن تبع الطباعه من الوورد باشارة مرجعيه

 

هذا الكود ... يعرض الوورد فقط للقراءه ... وانا ابيه يطبع على طول بدون عرض

 

entdab.rar

[ابوخليل]

وعليكم السلام

في الوحدة النمطية  / السطر الخامس قبل الأخير

appword.Visible = True

استبدله بهذا :

appword.Visible = False

[أبو نادر]

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

واضفت في النهاية printout.   وتمت الطباعه بنجااااح

 

شوف يبو خليل اضفت ثلاث خانات ( نعم / لا ) باسماء ملفات الوورد  الي بتنطبع ( وكلها بتكون function )

ابغى الطباعة تكون حسب اختيار الخانة 

وش التغيير الي بيحصل في الكود؟

entdab.rar

[أبو نادر]

طيب اي واحد ... شكلي غثيت ابو خليل  

 

زر للطباعة في الحدث عند النقر ... ابغى اقول :

اذا مربع الخانه ( اسمه ) كان نعم>> فاستدعيلي الفنكشن تبعه call function....

والثاني والثالث نفس الكلام مع تغيير اسم الفنكشن

( امر الطباعة موجود داخل الفنكشن )

وهل يحتاج اضيف في الجدول ثلاث حقول بنعم او لا ؟ او اكتفي باضافتها فقط في النموذج

[ابوخليل]

تفضل

تم التعديل

entdab2.rar

[أبو نادر]

الله يعطيك العافيه يبو خليل على تحملنا وتجاوبك معنا

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

etar = 1   هل هذي ثابته ؟  لان شفت كل خانه معطيها قيمة 

 

 

بطبقها اليوم وان شاء الله تزبط والف شكر لك