It isn't pretty ... but it's something. It will scroll to the top of the page and back down to the bottom. I am lucky because there is no way I'll have enough items in my web page to display the in between. This worked for me:
Imports mshtml
Sub Main()
Dim IE As SHDocVw.InternetExplorer
IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("C:\rptStatusProd.xml") 'load web page
While IE.Busy
Application.DoEvents() 'wait until IE is done loading page.
End While
IE.FullScreen = True
Dim doc As HTMLDocumentClass = IE.Document
Dim myProcesses() As Process
myProcesses = Process.GetProcessesByName("iexplore")
While myProcesses.Count > 0
Try
doc.activeElement.scrollIntoView(True) 'Scroll to top
System.Threading.Thread.Sleep(5000)
doc.activeElement.scrollIntoView(False) 'Scroll to bottom
System.Threading.Thread.Sleep(5000)
Catch COMEx As System.Runtime.InteropServices.COMException
'RPC Server unavailable, Internet explorer was closed
Catch ex As Exception
MsgBox(ex.Message)
End Try
End While
End Sub