- ใน detail section ให้สร้าง invisible textbox ไว้ตัวนึง สมมุติตั้งชื่อว่า myCounter กำหนดให้ ControlSource property มีค่าเป็น =1 (ต้องมีเครื่องหมายเท่ากับด้วย) และกำหนด RunningSum property ให้มีค่าเป็น OverAll   ต่อไปสร้าง page break control ไว้หนึ่งตัวบน detail section เช่นกัน สมมุติชื่อว่า myPageBreak ที่สำคัญคือต้องวางไว้ให้ติดแนบกับขอบล่างสุดของ detail section เลย อย่าให้เหลือที่ว่างไว้แม้แต่น้อย ไม่เช่นนั้นอาจเกิดการพิมพ์หน้าว่างๆที่หน้าสุดท้ายได้

- แล้วใส่โค้ดนี้เข้าไป

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me!myPageBreak.Visible = ((Me!myCount Mod 4) = 0)
End Sub

สุดยอดคับ

ผมรบกวนขอตัวอย่าง จะได้ไหมครับ

อาจารย์ สันติสุขค่ะ
หากเป็นแบบนี้ จะรู้ได้ยังไงค่ะ ว่าเราต้องการให้ Show กี่ Record
กำหนดตรงไหนว่า แค่ 5 Record

ตัวเลขหลัง Operator Mod เป็นตัวกำหนดครับ แต่น่าจะคนละอย่างกับที่คุณต้องการที่ได้ถามไว้ในอีกคำถามก่อนหน้า

ขอบคุณมาก ๆ ค่ะ อาจารย์


ในอีกคำถามนึงนั้น ... จะลองทำดูค่ะ
ไม่ค่อยถนัด ใส่ Macro ค่ะ ต้องค่อย ๆ ลอง