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

أخواني الزملاء

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

من اليوم لا تجهد نفسك في تنسيق الحقول ووضعها داخل جدول فمن خلال فقط اختيارك للحقول المراد اظهارها في التقرير ووضع الكود المذكور في حدث

On print

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

وهذا هو الكود

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer

intLineMargin = 0

For Each CtlDetail In Me.Section(acDetail).Controls
	With CtlDetail

		Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width + _
intLineMargin, Me.Height)
	End With
Next
	With Me
		Me.Line (0, 0)-Step(.Width, .Height), 0, B
	End With

Set CtlDetail = Nothing
End Sub

مرفق مثال

والله الموفق

Draw_Lines_in_report_detail.rar