Printing multiple pages with listview

When trying to print it only prints the first page. What wrong

Dim fntPrintFont As New Font("Arial", 10)
Dim fntHeadingFont As New Font("Arial", 14, FontStyle.Bold)
Dim fntColumnHeading As New Font("Arial", 12, FontStyle.Bold)
Dim sngLineHeight As Single = fntPrintFont.GetHeight + 2
Dim sngXCol1 As Single = e.MarginBounds.Left
Dim sngXCol2 As Single = 250.0F
Dim sngXCol3 As Single = 350.0F
Dim sngXCol4 As Single = 450.0F
Dim sngXCol5 As Single = 550.0F
Dim sngY As Single = e.MarginBounds.Top
Dim strPrintline As String
Dim intListCount As Integer = 0

strPrintline = mMachineNo
e.Graphics.DrawString(strPrintline, fntHeadingFont, Brushes.Black, sngXCol1, sngY)
sngY += sngLineHeight * 2
strPrintline = "Date"
e.Graphics.DrawString(strPrintline, fntColumnHeading, Brushes.Black, sngXCol1, sngY)
strPrintline = "stand1"
e.Graphics.DrawString(strPrintline, fntColumnHeading, Brushes.Black, sngXCol2, sngY)
strPrintline = "stand2"
e.Graphics.DrawString(strPrintline, fntColumnHeading, Brushes.Black, sngXCol3, sngY)
strPrintline = "Day"
e.Graphics.DrawString(strPrintline, fntColumnHeading, Brushes.Black, sngXCol4, sngY)
strPrintline = "Notes"
e.Graphics.DrawString(strPrintline, fntColumnHeading, Brushes.Black, sngXCol5, sngY)
sngY += sngLineHeight
sngY += sngLineHeight
For intListCount = 0 To lvPayments.Items.Count - 1
e.Graphics.DrawString(lvPayments.Items(intListCount).Text, fntPrintFont, Brushes.Black, sngXCol1, sngY)
e.Graphics.DrawString(lvPayments.Items(intListCount).SubItems(1).Text, fntPrintFont, Brushes.Black, sngXCol2, sngY)
e.Graphics.DrawString(lvPayments.Items(intListCount).SubItems(2).Text, fntPrintFont, Brushes.Black, sngXCol3, sngY)
e.Graphics.DrawString(lvPayments.Items(intListCount).SubItems(3).Text, fntPrintFont, Brushes.Black, sngXCol4, sngY)
e.Graphics.DrawString(lvPayments.Items(intListCount).SubItems(4).Text, fntPrintFont, Brushes.Black, sngXCol5, sngY)
sngY += sngLineHeight
Next

If intListCount < lvPayments.Items.Count - 1 Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If

Your loop says this:

vb.net Code:

For intListCount = 0 To lvPayments.Items.Count - 1

and then your code does this:

vb.net Code:

If intListCount < lvPayments.Items.Count - 1 Then

Unless you break out of that loop before it's finished, which you don't, how can that If condition ever be True? As such, e.HasMorePages is always going to be set to False, so no more pages get printed.