I am using this code, I have put it at the end of the report, however each time it hits the if the line count is always the same, as it seems to be printing the first page over and over again.
If LineCount > LinesPerPage Then
ev.HasMorePages = True
LineCount = LineCount - LinesPerPage
ev.HasMorePages = False
MessageBox.Show("Report Finished", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)