كيف اجعل طول الخلايا مساو لأطول خلية بالتقرير

[Gmal samy]

هل يمكن تغير الكود الموجود في هذه المشاركة ليكون في تذييل المجموعة بدلا من في ا لتفصيل في حدث عند الطباعة

 

حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير

ضع في حدث عند الصفحة الكود التالي

 

   Me.ScaleMode = 1

   Me.ForeColor = 0

   Me.DrawWidth = 3

وفي التفصيل في حدث عند الطباعة ضع الكود التالي وستحل مشكلتك انشاء الله

 

Dim ctl As Control

Dim MaxHeight As Long


MaxHeight = 0


For Each ctl In Me

If TypeOf ctl Is TextBox And ctl.Section = 0 Then

   If ctl.Height > MaxHeight Then MaxHeight = ctl.Height

End If

Next


   

For Each ctl In Me

If TypeOf ctl Is TextBox And ctl.Section = 0 Then

   Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight)

End If

Next

  


Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight)

  

Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)