I found the follwing code at the internet but im not able to print listview with this code.

Public Sub ItemsToBePrinted()

   Dim StringToPrint As String = "    " & "1" & " @ " & "3.99" & "         " & "3.99"
   Dim LineLen As String = StringToPrint.Length
   Dim spcLen5 As New String(" "c, Math.Round((30 - LineLen)))

   TextToPrint &= "Description" & Environment.NewLine
   TextToPrint &= StringToPrint & Environment.NewLine

End Sub

I would apreciate your help.

Thank you