155
« เมื่อ: 09 ก.ย. 62 , 07:22:36 »
โมดูลที่ใส่เป็นอย่างนี้ครับ
Option Compare Database
Option Explicit
Dim ShowPageFooter As Boolean
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
ShowPageFooter = False
Me.Section("PageFooterSection").Visible = True
End Sub
Private Sub voucher_s_id_footer_Format(Cancel As Integer, FormatCount As Integer)
ShowPageFooter = True
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Not ShowPageFooter Then Me.Section("PageFooterSection").Visible = False
End Sub