kaser906 قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 السلام عليكم ورحمة الله وبركاتة في هذا الموضوع للاستاذ منتصر الانسي تم عمل خلفية على شكل نص بالتقرير بحثت داخل قاعدة البيانات عن مكان النص لكي أتمكن من تغيره ولم يظهر معي شي المطلوب : كيف يتم تغير نص الخلفية بالتقرير
Shivan Rekany قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 في 21/2/2018 at 16:29, kaser906 said: بحثت داخل قاعدة البيانات عن مكان النص لكي أتمكن من تغيره Expand قام الاستاذ @منتصر الانسي بكتابة النص بواسطة الكود شوف هذا هو الكود لكتابة ( قيد مقفل ) 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 في 21/2/2018 at 16:55, Shivan Rekany said: شوف هذا هو الكود لكتابة ( قيد مقفل ) Expand شكرا لك استاذ شفان انا فعلا توصلت للكود المشكلة لم أتمكن من الوصول الى كلمة ( قيد مقفل ) في 21/2/2018 at 16:56, AlwaZeeR said: اعتقد من الافكتس الخاصة بالطابعة Expand ممكن تفصيل لو سمحت
Shivan Rekany قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 (معدل) في 21/2/2018 at 17:01, kaser906 said: المشكلة لم أتمكن من الوصول الى كلمة ( قيد مقفل ) Expand اخي الحبيب كل سطر من السطور مثل هذه 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 في 21/2/2018 at 17:05, Shivan Rekany said: جرب ان تحذف بعض السطور وفتح التقرير راح يوضح لك ما اقول Expand فعلا استاذ هذه السطور هي السؤولة عن رسم الكلمة الان اصبح الموضوع معقد أكثر هل هناك برنامج او شفرة معينة تجعلني اكتب الكلام الذي اريده ان يظهر 1
Shivan Rekany قام بنشر فبراير 21, 2018 قام بنشر فبراير 21, 2018 في 21/2/2018 at 17:23, kaser906 said: هل هناك برنامج او شفرة معينة تجعلني اكتب الكلام الذي اريده ان يظهر Expand لا اعرف لکن هناك طريقة بديلة اليك هذا الرابط 2
kaser906 قام بنشر فبراير 22, 2018 الكاتب قام بنشر فبراير 22, 2018 في 21/2/2018 at 19:44, Shivan Rekany said: هناك طريقة بديلة اليك هذا الرابط Expand ويبقى السؤوال هنا مفتوح ما هو البرنامج الذي يتم عن طريقة استخراج الارقام لإضافتها الى الوحدة النمطية لأني اكاد أجزم بأنه من الصعب جدا كتابة الارقام يدويا الف شكر لك استاذ شفان
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.