طالب علم2002

الاخ مغروم حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير ضع في حدث عند الصفحة الكود التالي 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) اخيك طالب علم2002