exemplo simples

 

Private Sub Command1_Click()
Dim ImpLinha As Integer

For i = 0 To ListView.ListItems.Count - 1

Printer.Print " " & ListView.ListItems(i + 1).Text & " "

ImpLinha = ImpLinha + 1

    If ImpLinea = 30 Then
        Printer.NewPage
        ImpLinha = 0
    End If
   
Printer.EndDoc

Next i
End Sub

Private Sub Form_Load()

Dim Item As ListItem

Set Item = ListView.ListItems.Add(, , "Item 1")

Set Item = ListView.ListItems.Add(, , "Item 2")

Set Item = ListView.ListItems.Add(, , "Item 3")

 

End Sub