Puedes hacerlo de esta manera, dependiendo cuantos SubItems tengas es lo que vas a concatenar....SALUDOS!!!
Dim i As Integer
Dim ImpLinea As Integer
For i = 0 To lv.ListItems.Count - 1
Printer.Print " " & lv.ListItems(i + 1).Text & " " & _
lv.ListItems.Item(i + 1).SubItems(1) & vbCrLf
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next i