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
Else
ev.HasMorePages = False
MessageBox.Show("Report Finished", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
End If
Louisa
|