VisibleRows in Report

 

Yes it is possible. You could do it like this:

 

Private Function GetOnlyVisibleRows()
    Dim firstRow As Long
    Dim lastRow As Long
    Dim i As Long
   
    wndReportControlFiles.Navigator.MoveFirstVisibleRow
    firstRow = wndReportControlFiles.FocusedRow.Index
    wndReportControlFiles.Navigator.MoveLastVisibleRow
    lastRow = wndReportControlFiles.FocusedRow.Index
   
    For i = firstRow To lastRow
        MsgBox wndReportControlFiles.Rows(i).record(0).Caption '' reference of the record, loop through recorditems if necessary
    Next i
End Function