تغييرالنص في خلفية التقرير

[kaser906]

السلام عليكم ورحمة الله وبركاتة

في هذا الموضوع للاستاذ منتصر الانسي

تم عمل خلفية على شكل نص بالتقرير

بحثت داخل قاعدة البيانات عن مكان النص لكي أتمكن من تغيره

ولم يظهر معي شي

 

المطلوب :

كيف يتم تغير نص الخلفية بالتقرير

[Shivan Rekany]

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

   

[AlwaZeeR]

اعتقد من الافكتس الخاصة بالطابعة

 

[kaser906]

1 دقيقه مضت, Shivan Rekany said:

شوف هذا هو الكود لكتابة ( قيد مقفل )

شكرا لك استاذ شفان

انا فعلا توصلت للكود

المشكلة لم أتمكن من الوصول الى كلمة ( قيد مقفل )

3 دقائق مضت, AlwaZeeR said:

اعتقد من الافكتس الخاصة بالطابعة

ممكن تفصيل لو سمحت

[Shivan Rekany]

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]

13 دقائق مضت, Shivan Rekany said:

جرب ان تحذف بعض السطور وفتح التقرير راح يوضح لك ما اقول

فعلا استاذ هذه السطور هي السؤولة عن رسم الكلمة

الان اصبح  الموضوع معقد أكثر

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

[Shivan Rekany]

2 ساعات مضت, kaser906 said:

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

لا اعرف لکن هناك طريقة بديلة
اليك هذا الرابط

 

[kaser906]

7 ساعات مضت, Shivan Rekany said:

هناك طريقة بديلة
اليك هذا الرابط

ويبقى السؤوال هنا مفتوح

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

لأني اكاد أجزم بأنه من الصعب جدا كتابة الارقام يدويا

الف شكر لك استاذ شفان

[AlwaZeeR]

 

جرب هذا الكود ضعه في وحدة نمطية جديدة

ثم قم باستدعائه في حدث التقرير في المكان الذي تريد ان يظهر فيه العلامة المائية

اجعلها نقطة البداية لهذا الامر وانطلق ،،،

تحياتي

 

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

 

[kaser906]

الله يعطيك الف عافية استاذنا الوزير

ويبقى السؤال مفتوحاً

بأي برنامج قام الاستاذ منتصر

بعمل العلامة المائية ؟

[sandanet]

هل طرح ذلك السؤال على الاستاذ @منتصر الانسي من قبل؟

[طاهر الوليدي]

وكنت اريد معرفة خط الاقفال في التقرير نفسه 

  هل من الممكن وضع اسماء الموقعين بنفس طريقة خط الاقفال