شكراً جزاك الله خيرا تم المطلوب
جربت الكود التالي ولم يظهر التذييل في صفحة واحدة لو تفسر لي السبب جزاك الله خيرا
Option Compare Database
Private show_Footer As Integer
Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
show_Footer = 1
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If show_Footer = 1 Then
Me.PageFooterSection.Visible = False
show_Footer = 0
Else
Me.PageFooterSection.Visible = True
End If
End Sub
521.Sheet.rar