Saludos, segun veo en tu codigo solamente estas imprimiendo una fila del Listview, creo que ese seria el problema.
Código:
Dim xItem As ListItem
Dim iRow As Integer
For iRow = 1 To ListView1.ListItems.Count
Set xItem = ListView1.ListItems(iRow)
Me.Print xItem.Text
Me.Print xItem.SubItems(1)
Me.Print xItem.SubItems(2)
Next
Con eso recorres todas las filas del Listview.
Espero que te sea de utilidad.