حل مشكلة احتواء حجم الخط لحقل واحد داخل التقرير

[خير الايمان]

اسلتذتي الكرام

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

برجاء من حضرتكم حل مشكلة حقل التخصص فقط دزن حقول باقي التقرير في التقرير المرسل بكود دون تغير حجم الحقل

تقديري

 

Database1601.accdb

[kanory]

4 ساعات مضت, خير الايمان said:

اسلتذتي الكرام

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

برجاء من حضرتكم حل مشكلة حقل التخصص فقط دزن حقول باقي التقرير في التقرير المرسل بكود دون تغير حجم الحقل

تقديري

طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي ....

 

Dim ctl As Control, strText As Variant, strName As String
    Me.ScaleMode = 1
    
    For Each ctl In Me.Detail.Controls
   
        If ctl.ControlType = acTextBox And ctl.name = "Text4" Then
        
        strName = ctl.name
        
            If Nz(ctl.Tag, "") = "" Then
                ctl.Tag = ctl.FontSize
            End If
            
            ctl.FontSize = ctl.Tag
            Me.FontSize = ctl.FontSize
        
            strText = ctl.Value
           If Len(strText) > 0 Then
            Do Until TextWidth(strText) < ctl.Width
                ctl.FontSize = ctl.FontSize - 1
                Me.FontSize = ctl.FontSize
            Loop
            
            Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26)
                ctl.FontSize = ctl.FontSize - 1
                Me.FontSize = ctl.FontSize
            Loop
        
        End If
        End If
        
    Next ctl

ثم انظر النتيجة ......................

 

 

[خير الايمان]

استاذي المحترم

كل الشكر والتقدير لمجهود حضرتك 

لكن عند التنفيذ حدث كما بالصورة

واعتقد ان الكود للتفصيل ككل وما اريد الا في التخصص فقط دون باقي الحقول

دمت وادامك الله بالخير

 

[kanory]

37 دقائق مضت, خير الايمان said:

واعتقد ان الكود للتفصيل ككل وما اريد الا في التخصص فقط دون باقي الحقول

الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي .....

عموما تفضل ملفك بعد التعديل عليه ........

 

Database1601.accdb

[خير الايمان]

استاتذي المحترم

يعجز اللسان ان يوفي من شكر وتقدير على مجهود حضرتك

تمام تم المطلوب على الوجه الاكمل

اعزك الله وادامك بكل الخير

 

[Barna]

38 دقائق مضت, خير الايمان said:

استاتذي المحترم

يعجز اللسان ان يوفي من شكر وتقدير على مجهود حضرتك

تمام تم المطلوب على الوجه الاكمل

اعزك الله وادامك بكل الخير

 

اخي خير اخترها افضل اجابة حتى نعرف انه تم الاجابة على السؤال .....