วิธีตรงไปตรงมาน่าจะไม่มีครับ ผมให้เฉพาะไอเดียที่คิดได้ตอนนี้ คุณต้องไปลองเองนะครับ

1) สร้างเทเบิลเพิ่มขึ้นมาเพื่อใช้เก็บข้อมูลสำหรับพิมพ์เฉพาะใบปะหน้า เทเบิลนี้มี 2 ฟิลด์ คือ ฟิลด์เก็บเลขที่หน้า และฟิลด์เก็บยอดรวมของแต่ละหน้า เริ่มต้นโปรแกรมคุณต้องลบเรคอร์ดทั้งหมดในเทเบิลนี้

2) ให้คุณหาผลรวมแต่ละหน้าด้วยวิธีนี้ http://support.microsoft.com/kb/296249/en-us/

3) ในข้อ 4 ของหัวข้อ Summing a Column for Each Page Separately ในลิงค์ข้างบน ให้บันทึกค่า Me.Page และ Me!pagesum ลงในเรคอร์ดในข้อ 1) ถ้าเรคอร์ดมีอยู่แล้วก็ให้เขียนทับไป (เพราะแต่ละ section ในแต่ละหน้าของรายงาน จะมีโอกาสที่จะเกิด event นั้นๆมากกว่า 1 ครั้ง)

4) ในโปรแกรมที่สั่งพิมพ์รายงานนี้ ให้สั่งอีกคำสั่งเพื่อพิมพ์อีกรายงานที่ออกแบบให้แสดงเฉพาะใบปะหน้า โดยใช้เทเบิลในข้อ 1) เป็น Record Source

ขอบคุณสำหรับคำตอบค่ะ กลับไปทดลองทำตามข้อ 2 หลายครั้งแล้วไม่ได้ค่ะ เลยเอาโค๊ดที่ทำไว้แล้วมาให้ดูค่ะ (ก๊อปปี้มาจากเวบเหมือนกันค่ะ)
ตอนนี้ได้ผลรวมของแต่ละหน้าแล้วค่ะ

Option Compare Database


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then
pagesum = pagesum + QUAN
expr1sum = expr1sum + Expr1
End If


End Sub



Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
pagesum = 0
expr1sum = 0
End Sub


Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)

End Sub


แต่ยังทำในส่วนของใบปะหน้าที่เอายอดสรุปแต่ละหน้ามาไม่ได้ค่ะ
เคยเห็นคำสั่ง store แต่ไม่ทราบว่าสั่งใช้งานยังไง

ขอเพิ่มคำถามอีกข้อค่ะ

ในหน้ารายงานสุดท้าย ต้องการให้ปรับระยะผลรวมของหน้านั้นไปไว้ชิดกับข้อมูลสุดท้าย ต้องทำยังไงคะ can shrink ใน property ของ details section แล้วแต่ยังไม่ได้ค่ะ

- ผมไม่เห็นว่าที่คุณทำจะเหมือนกับลิงค์ที่ผมให้ไปเลย
- Page Footer จะอยู่ชิดขอบล่างเสมอครับ ปรับขึ้นมาไม่ได้