codice:
 If RighePerPagina >= 60 Then 'linesPerPage 60 per font 11 , 61 per 10
                RighePerPagina = 0
                PagineStampate = PagineStampate + 1
                RigaArrivato = i + 1 'nell'altra pagina deve avere la riga successiva
                e.HasMorePages = True
                Exit Sub
            End If
io lo regolo in questo modo
ovvio che mi sono calcolato circa 60 righe per pagina
ed ad aogni ciclo valorizzo la variabile righeperpagina

cmq ho visto il codice
non male ma...
1) hai regolato il font? in base alla listview?
2) nella list view se una riga è tropop lunga escono i puntini...
3) per non parlare della dimensione delle colonne....

cmq se vuoi un aiuto...
quando e quanto vuoi