ผมดัดแปลงจากโค้ดนี้ครับ ปรากฏว่าตอนนี้เจอปัญหาแสดงรายการบรรทัดสุดท้ายจนครบ ทำการซ่อนค่าซ้ำแล้วยังแสดงอยู่ครับ
Option Compare Database   'Use database order for string comparisons
Option Explicit
      
Global TotCount As Integer

' Call the SetCount() function from the group header section's
' OnPrint property using the syntax: =SetCount(Report)

' Call the PrintLines() function from the detail section's OnPrint
' property using the syntax: =PrintLines(Report,[TotGrp]).

      Function PrintLines(R As Report, TotGrp)
        TotCount = TotCount + 1
        If TotCount = TotGrp Then
              R.NextRecord = False
        ElseIf TotCount > TotGrp And TotCount < 10 Then
              R.NextRecord = False
              R![ProductName].Visible = False
        End If
      End Function

      Function SetCount(R As Report)
        TotCount = 0
        R![ProductName].Visible = True
      End Function
อยากทราบวิธีไม่ให้มันแสดงค่าสุดท้ายครับ--(เดิมไฟล์เอ็กเซลครับ)