نور الرياض قام بنشر سبتمبر 13, 2011 قام بنشر سبتمبر 13, 2011 السلام عليكم ارفق لكم مشكلتي بخصوص التقرير في المرفقات يوجد قاعدة بيانات وبداخلها تقرير 1 عند الضغط عليه سوف يفتح التقرير ويظهر عدد الصفحات 108 كيف اقلل من عدد الصفحات هل يوجد كود معين اضعه في الحقل شروط الإلتحاق بالبرنامج التدريبي بحيث يكبر الحقل بناء على المعلومات اللتي بداخلة وعند عدم احتوائه على بيانات فأنه يقل حجمه اي ان حجم الحقل يتغير بناء على البيانات التي بداخلة وبذلك سوف يساعدني كثيراً في تقليل من حجم الصفحات وإذا هناك اقتراح أو رأي ترونهم يساهم في تقليل صفحات التقرير ولكم مني جزيل شكري وتقديري نسخ من _خطة البرامج التدريبية الداخلية - نسخة.rar
نور الرياض قام بنشر سبتمبر 13, 2011 الكاتب قام بنشر سبتمبر 13, 2011 ارجو مساعدتي بأي اقتراح ترونة حيث ان المشروع الآن باقي عليه تقليل الصفحات فقط
Bluemind قام بنشر سبتمبر 13, 2011 قام بنشر سبتمبر 13, 2011 شاهد التقرير المسمى Report6 اذا كان هو المطلوب سوف اشرح الطريقه اعتذر لعدم التعديل على التقرير1 لوجود مشكلة في التعريب للفجيول بيسك لدي printline.rar
نور الرياض قام بنشر سبتمبر 13, 2011 الكاتب قام بنشر سبتمبر 13, 2011 الله ينور قلبك بالطاعة و الإيمان الله يحفظك الله يحفظك نعم هو المطلوب كيف نعملها
Bluemind قام بنشر سبتمبر 13, 2011 قام بنشر سبتمبر 13, 2011 اسف على التاخير ولكن كنت اقوم بالتعديل على التقرير رقم 1 اطريقه هي اولا لابد من تقليل ارتفاع الحقول الموجوده في التفاصيل لاحظت ان حجم الحقول سميك جدا ثانيا لابد من وضع خاصيه can grow لكل حقل في التقرير الى نعم >>> من خصائص الحقل >>> اذهب ل تاب التنسيق او format >> ثالثا ضع الكود ادناه في حدث on print ل قسم ال Details او التفاصيل وقم باضافه اسماء الحقول في متسلسله كما في الكود و لا تنسى ان العدد يبداء من صفر و مجموع عدد الحقول هو 13 وليس 12 Private Sub Details_Print(Cancel As Integer, PrintCount As Integer) On Error Resume Next Dim lngCounter As Long, dblMaxHeight As Double dblMaxHeight = 0 ReDim strcontrol(13) strcontrol(0) = "ID" strcontrol(1) = "program_name" strcontrol(2) = "Combo3" strcontrol(3) = "instructor_id" strcontrol(4) = "txtds" strcontrol(5) = "txtstart" strcontrol(6) = "txtend" strcontrol(7) = "txtde" strcontrol(8) = "txtdays" strcontrol(9) = "txtintendedto" strcontrol(10) = "txtlocation" strcontrol(11) = "txtRemarksInt" strcontrol(12) = "txtRemarks" For lngCounter = 0 To UBound(strcontrol) If Me(strcontrol(lngCounter)).Height > dblMaxHeight Then dblMaxHeight = Me(strcontrol(lngCounter)).Height Next For lngCounter = 0 To UBound(strcontrol) If lngCounter = 0 Then Me.Line (Me(strcontrol(lngCounter)).Left, Me(strcontrol(lngCounter)).Top)-Step(Me(strcontrol(lngCounter)).Width, dblMaxHeight), , B Else Me.Line (Me(strcontrol(lngCounter)).Left, Me(strcontrol(lngCounter)).Top)-Step(Me(strcontrol(lngCounter)).Width, dblMaxHeight), , B End If Next طبعا يفضل تسميه الحقول باللغه الانجليزيه شاهد التعديل على المرفق >>> التقرير Report1 هناك ملاحظه: لا يفضل هذا النوع من التقارير التي تطبع جميع البيانات ، مع مرور الوقت سوف يكون هناك بيانات ليس لها من داعي لطباعتها فايفضل عرض التقرير باستخدام فلتر للتاريخ (من - الى) واذا كان هناك شرح غير واضح اارجاء ابلاغي printline.rar
Bluemind قام بنشر سبتمبر 13, 2011 قام بنشر سبتمبر 13, 2011 طبعا هناك خطوه مهمه نسيت ذكرها وهي وضع خاصيه border style للحقول الى Transparent وكذلك بدون اي الوان لحدود الحقول
نور الرياض قام بنشر سبتمبر 13, 2011 الكاتب قام بنشر سبتمبر 13, 2011 الله يحفظك الله يحفظك رقي في التعامل بارك الله فيك الله يجزاك الجنة ويقبل ربي ما ادعي لك في كل لحظة الله يحفظك الله يحفظك الف الف الف شكر على اهتمامك وتقديرك سوف اطبق واعرض لك النتائج بعد الإنتهاء
نور الرياض قام بنشر سبتمبر 13, 2011 الكاتب قام بنشر سبتمبر 13, 2011 استاذ ابشرك ابشرك ابشرك ضبط معي ولله الحمد الف الف الف شكر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.