kaser906 قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 السلام عليكم ورحمة الله وبركاتة في هذا الموضوع للاستاذ منتصر الانسي تم عمل خلفية على شكل نص بالتقرير بحثت داخل قاعدة البيانات عن مكان النص لكي أتمكن من تغيره ولم يظهر معي شي المطلوب : كيف يتم تغير نص الخلفية بالتقرير
Shivan Rekany قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 22 دقائق مضت, kaser906 said: بحثت داخل قاعدة البيانات عن مكان النص لكي أتمكن من تغيره قام الاستاذ @منتصر الانسي بكتابة النص بواسطة الكود شوف هذا هو الكود لكتابة ( قيد مقفل ) Public Sub RptLockedOpr(Rpt As Report) On Error Resume Next Dim RptWidth As Double Dim RptHight As Double Rpt.ScaleMode = 7 Rpt.DrawMode = 3 Rpt.DrawStyle = 0 Rpt.ForeColor = RGB(0, 0, 255) Rpt.DrawWidth = 10 RptWidth = (Rpt.ScaleWidth - 2) / 2 RptHight = Rpt.ScaleHeight / 2 Rpt.Line (RptWidth + 5.5, RptHight - 9)-(RptWidth + 6, RptHight - 9.5) Rpt.Line (RptWidth + 6, RptHight - 9.5)-(RptWidth + 9.5, RptHight - 6) Rpt.Line (RptWidth + 9.5, RptHight - 6)-(RptWidth + 3.5, RptHight - 0) Rpt.Line (RptWidth + 3.5, RptHight - 0)-(RptWidth + 2, RptHight - 1.5) Rpt.Line (RptWidth + 2, RptHight - 1.5)-(RptWidth + 3.5, RptHight - 3) Rpt.Line (RptWidth + 3.5, RptHight - 3)-(RptWidth + 3.25, RptHight - 3.25) Rpt.Line (RptWidth + 2.75, RptHight - 3.25)-(RptWidth + 1.5, RptHight - 2) Rpt.Line (RptWidth + 1.5, RptHight - 2)-(RptWidth + 1.5, RptHight - 3) Rpt.Line (RptWidth + 1.5, RptHight - 3)-(RptWidth + 2.5, RptHight - 4) Rpt.Line (RptWidth + 3.5, RptHight - 4)-(RptWidth + 4, RptHight - 3.5) Rpt.Line (RptWidth + 4, RptHight - 3.5)-(RptWidth + 5, RptHight - 4.5) Rpt.Line (RptWidth + 5, RptHight - 4.5)-(RptWidth + 4.5, RptHight - 5) Rpt.Line (RptWidth + 4.5, RptHight - 5)-(RptWidth + 4.5, RptHight - 6) Rpt.Line (RptWidth + 4.5, RptHight - 6)-(RptWidth + 5.5, RptHight - 5) Rpt.Line (RptWidth + 5.5, RptHight - 5)-(RptWidth + 7.5, RptHight - 7) Rpt.Line (RptWidth + 7.5, RptHight - 7)-(RptWidth + 7, RptHight - 7.5) Rpt.Line (RptWidth + 7, RptHight - 7.5)-(RptWidth + 6, RptHight - 6.5) Rpt.Line (RptWidth + 6, RptHight - 6.5)-(RptWidth + 5.5, RptHight - 7) Rpt.Line (RptWidth + 6, RptHight - 8.5)-(RptWidth + 6.5, RptHight - 8) Rpt.Line (RptWidth + 6.5, RptHight - 8)-(RptWidth + 6, RptHight - 7.5) Rpt.Line (RptWidth - 0, RptHight - 1)-(RptWidth + 0.5, RptHight - 1.5) Rpt.Line (RptWidth + 0.5, RptHight - 1.5)-(RptWidth + 3, RptHight + 1) Rpt.Line (RptWidth + 3, RptHight + 1)-(RptWidth - 3.5, RptHight + 7.5) Rpt.Line (RptWidth - 4, RptHight + 8)-(RptWidth - 8, RptHight + 4) Rpt.Line (RptWidth - 8, RptHight + 4)-(RptWidth - 8, RptHight + 3) Rpt.Line (RptWidth - 8, RptHight + 3)-(RptWidth - 5, RptHight + 6) Rpt.Line (RptWidth - 5, RptHight + 6)-(RptWidth - 3.5, RptHight + 4.5) Rpt.Line (RptWidth - 3.5, RptHight + 4.5)-(RptWidth - 4, RptHight + 4) Rpt.Line (RptWidth - 4, RptHight + 4)-(RptWidth - 5, RptHight + 5) Rpt.Line (RptWidth - 5, RptHight + 5)-(RptWidth - 5.5, RptHight + 4.5) Rpt.Line (RptWidth + 0.5, RptHight - 0.5)-(RptWidth + 1, RptHight + 0) Rpt.Line (RptWidth + 1, RptHight + 0)-(RptWidth + 0.5, RptHight + 0.5) Rpt.Line (RptWidth - 5.5, RptHight + 2.5)-(RptWidth - 5, RptHight + 2) Rpt.Line (RptWidth - 5, RptHight + 2)-(RptWidth - 3, RptHight + 4) Rpt.Line (RptWidth - 3, RptHight + 4)-(RptWidth - 1.5, RptHight + 2.5) Rpt.Line (RptWidth - 1.5, RptHight + 2.5)-(RptWidth - 2, RptHight + 2) Rpt.Line (RptWidth - 2, RptHight + 2)-(RptWidth - 3, RptHight + 3) Rpt.Line (RptWidth - 3, RptHight + 3)-(RptWidth - 3.5, RptHight + 2.5) Rpt.Line (RptWidth - 3.5, RptHight + 0.5)-(RptWidth - 3, RptHight + 0) Rpt.Line (RptWidth - 3, RptHight + 0)-(RptWidth - 1, RptHight + 2) Rpt.Line (RptWidth - 1, RptHight + 2)-(RptWidth - 0, RptHight + 1) Rpt.Line (RptWidth - 3, RptHight + 1)-(RptWidth - 2.5, RptHight + 1.5) Rpt.Line (RptWidth - 2.5, RptHight + 1.5)-(RptWidth - 3, RptHight + 2) Rpt.Line (RptWidth - 5, RptHight + 3)-(RptWidth - 4.5, RptHight + 3.5) Rpt.Line (RptWidth - 4.5, RptHight + 3.5)-(RptWidth - 5, RptHight + 4) Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth + 3), (RptHight - 3)), 0.35, , 0.8, 2.35 Rpt.Circle ((RptWidth + 3), (RptHight - 3.5)), 0.7, , 0.8, 2.35 Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 5), (RptHight + 8)), 1, , 3.5, 6.28318530718 Rpt.Circle ((RptWidth - 4.5), (RptHight + 8.5)), 1.4, , 3, 0.8 Rpt.Circle ((RptWidth + 5.5), (RptHight - 9.6)), 0.35 Rpt.Circle ((RptWidth + 5), (RptHight - 9.1)), 0.35 Rpt.Circle ((RptWidth - 3.5), (RptHight - 0.1)), 0.35 Rpt.Circle ((RptWidth - 4), (RptHight + 0.4)), 0.35 Rpt.Circle ((RptWidth - 5.7), (RptHight + 2.1)), 0.35 Rpt.Circle ((RptWidth + 7), (RptHight - 2.5)), 0.35 Rpt.Circle ((RptWidth + 6.5), (RptHight - 2)), 0.35 End Sub 2
kaser906 قام بنشر فبراير 21, 2018 الكاتب قام بنشر فبراير 21, 2018 1 دقيقه مضت, Shivan Rekany said: شوف هذا هو الكود لكتابة ( قيد مقفل ) شكرا لك استاذ شفان انا فعلا توصلت للكود المشكلة لم أتمكن من الوصول الى كلمة ( قيد مقفل ) 3 دقائق مضت, AlwaZeeR said: اعتقد من الافكتس الخاصة بالطابعة ممكن تفصيل لو سمحت
Shivan Rekany قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 (معدل) 4 دقائق مضت, kaser906 said: المشكلة لم أتمكن من الوصول الى كلمة ( قيد مقفل ) اخي الحبيب كل سطر من السطور مثل هذه Rpt.Line (RptWidth - 4.5, RptHight + 3.5)-(RptWidth - 5, RptHight + 4) Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 0.7, , 2.35, 3.9 هو جزء من الكلمة ( قيد القفل ) جرب ان تحذف بعض السطور وفتح التقرير راح يوضح لك ما اقول تم تعديل فبراير 21, 2018 بواسطه Shivan Rekany
kaser906 قام بنشر فبراير 21, 2018 الكاتب قام بنشر فبراير 21, 2018 13 دقائق مضت, Shivan Rekany said: جرب ان تحذف بعض السطور وفتح التقرير راح يوضح لك ما اقول فعلا استاذ هذه السطور هي السؤولة عن رسم الكلمة الان اصبح الموضوع معقد أكثر هل هناك برنامج او شفرة معينة تجعلني اكتب الكلام الذي اريده ان يظهر 1
Shivan Rekany قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 2 ساعات مضت, kaser906 said: هل هناك برنامج او شفرة معينة تجعلني اكتب الكلام الذي اريده ان يظهر لا اعرف لکن هناك طريقة بديلة اليك هذا الرابط 2
kaser906 قام بنشر فبراير 22, 2018 الكاتب قام بنشر فبراير 22, 2018 7 ساعات مضت, Shivan Rekany said: هناك طريقة بديلة اليك هذا الرابط ويبقى السؤوال هنا مفتوح ما هو البرنامج الذي يتم عن طريقة استخراج الارقام لإضافتها الى الوحدة النمطية لأني اكاد أجزم بأنه من الصعب جدا كتابة الارقام يدويا الف شكر لك استاذ شفان
AlwaZeeR قام بنشر فبراير 22, 2018 قام بنشر فبراير 22, 2018 جرب هذا الكود ضعه في وحدة نمطية جديدة ثم قم باستدعائه في حدث التقرير في المكان الذي تريد ان يظهر فيه العلامة المائية اجعلها نقطة البداية لهذا الامر وانطلق ،،، تحياتي Call Watermark(Me) Public Function Watermark(rpt As Access.Report) Dim strMessage As String Dim lngHorSize As Long Dim lngVerSize As Long Debug.Print rpt.Name strMessage = "Alwazeer" With rpt 'Set scale to pixels, and set FontName and 'FontSize properties. .ScaleMode = 3 .FontName = "Courier" .FontSize = 48 .ForeColor = 12632256 ' Horizontal width. lngHorSize = .TextWidth(strMessage) ' Vertical height. lngVerSize = .TextHeight(strMessage) ' Calculate location of text to be displayed. .CurrentX = (.ScaleWidth / 2) - (lngHorSize / 2) .CurrentY = (.ScaleHeight / 2) - (lngVerSize / 2) ' Print text on Report object. .Print strMessage End With End Function 3
kaser906 قام بنشر فبراير 22, 2018 الكاتب قام بنشر فبراير 22, 2018 الله يعطيك الف عافية استاذنا الوزير ويبقى السؤال مفتوحاً بأي برنامج قام الاستاذ منتصر بعمل العلامة المائية ؟
sandanet قام بنشر فبراير 22, 2018 قام بنشر فبراير 22, 2018 هل طرح ذلك السؤال على الاستاذ @منتصر الانسي من قبل؟
طاهر الوليدي قام بنشر فبراير 24, 2018 قام بنشر فبراير 24, 2018 وكنت اريد معرفة خط الاقفال في التقرير نفسه هل من الممكن وضع اسماء الموقعين بنفس طريقة خط الاقفال
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.