Imprimir ListView

[RsOfT]

Lo que hago para mandar a imprimir es lo siguiente:

Private Sub CmdImprimir_Click()
Dim IntControl As Integer
IntControl = 1

If MsgBox("Se imprimirán los registros, oprima SI para imprimir, NO para cancelar", vbYesNo + vbInFormation, "Imprimir") = vbYes Then

For i = 1 To LvwPrint.ListItems.Count - 1
Printer.Font.Name = "Verdana"
Printer.Font.Size = "8"
Printer.ScaleMode = 1 'Pulgada
Printer.CurrentY = 5
Printer.CurrentX = 10

Printer.Print , LvwPrint.ListItems(i)
For j = 1 To 3 '3 es el Numero de Columnas
Printer.Print , LvwPrint.ListItems(i).SubItems(j)
Next j
IntControl = IntControl + 1
If IntControl = 80 Then
Printer.NewPage
IntControl = 0
End If

Next i
Printer.EndDoc
End If

End Sub

Pero todo me sale en una misma línea, que es lo que me falta?

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--