Private Sub cmdPrint_Click()
        Dim csItem
  
  For Each csItem In ListView1.ListItems
    Printer.CurrentX = 350
    Printer.Print csItem.Text
  Next
  
  Call Printer.EndDoc
End Sub