اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


kaser906

الردود الموصى بها

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

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

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

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

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

txrpt.png.4fd0304b8d7093dde626feae7147776f.png

 

المطلوب :

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

رابط هذا التعليق
شارك

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

   

  • Like 2
رابط هذا التعليق
شارك

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


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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

هو جزء من الكلمة ( قيد القفل )
جرب ان تحذف بعض السطور وفتح التقرير راح يوضح لك ما اقول

تم تعديل بواسطه Shivan Rekany
رابط هذا التعليق
شارك

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

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

image.png.fe61d98767d61ac8119c7bdd53de9632.png

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

الف شكر لك استاذ شفان :fff:image.png.0952f53292eb1aa6ec8d22df6a920b0a.png

رابط هذا التعليق
شارك

 

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

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

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

تحياتي

 

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

 

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information