ให้สร้างตัวแปรในระดับโมดูล 2 ตัว ชื่อ F และ L เป็นประเภท Integer

ใน OnFormat event ของ Page Header section ให้กำหนด F = 9999 (หวังว่าข้อมูลคงไม่มากกว่า 9999 รายการนะครับ) และ L = 0

ใน OnFormat event ของ Detail section ใส่โค้ด (สมมุติว่า N คือชื่อเท็กซ์บ็อกซ์ที่แสดงเลขรัน)
   If N < F then F = N
   If N > L then L = N

ใน OnFormat event ของ Page Footer section คุณก็สั่งพิมพ์คำพูดที่ต้องการจากค่า F และ L

Private F As Integer
Private L As Integer



Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
TxtFirst = F
TxtLast = L
End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
F = 9999
L = 0
End Sub

Private Sub ÃÒÂÅÐàÍÕ´_Format(Cancel As Integer, FormatCount As Integer)
   If TxtrunNumber < F Then F = TxtrunNumber
   If TxtrunNumber > L Then L = TxtrunNumber
End Sub


**** ได้แล้วครับ ขอบคุณครับ