สร้างเท็กซ์บ็อกซ์ 1 อันบน page header section ใส่ ControlSource เป็น =[Pages]    (ต้องมีเครื่องหมาย = ด้วย) , กำหนด Visible เป็น False   แล้วใส่โค้ดนี้

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.Section("PageHeaderSection").Visible = (Me.Page <> Me.Pages)
End Sub

หมายเหตุ : ถ้าชื่อของ page header section ไม่ใช่ "PageHeaderSection" ก็ให้เปลี่ยนเป็นตามที่ตั้งชื่อไว้ด้วยครับ

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Page = Me.Pages Then Me.PageHeaderSection.Visible = False
End Sub

ไม่ได้ทำ Report มานานแล้วครับ แต่ลองดูนะครับ
ใส่ code ที่ event Format ของ PageHeaderSection

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Page = Me.Pages Then
        PageHeaderSection.Visible = False
    End If
End Sub

ขอบคุณอาจารย์ ทั้งสามท่านมากครับ อบอุ่นจริงๆ มีหลายแบบได้ลองใช้ได้ศึกษา ^^

พอดีตอนเขียนเปิดหน้าเพจทิ้งไว้เลยไม่รู้ว่ามี อ.สันติสุข ตอบไปแล้ว
จริงๆผมยังห่างไกลกับคำว่า อาจารย์ นะครับ ไม่กล้ารับจริงๆ เรียกธรรมดาก็ยินดีครับ

Shopping ความรู้ มันส์มากครับ+++ ขอขอบคุณอาจารย์ทุกท่าน ท่านอาจารย์TTT รับเถอะครับ ท่านสมควร

ขอโทษครับใช้คำผิด shopping ต้องเสียเงิน แต่นี่ ฟรีๆ ครับ