Please help with printing.

I am trying to print multiple pages using a listview.

CODE:

Dim ItemCounter As Integer

For ItemCounter = 0 To lvwLearners.Items.Count - 1
PrintLearnerList(e) ' this is what I want to print
Next


If ItemCounter < lvwLearners.Items.Count Then
e.HasMorePages = True

Else
ItemCounter = 0
e.HasMorePages = False
End If

When I try to print it just shows the first page and there is enough data in the list view to have multiple pages.