Listview in pdf

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim filename As String
        Dim listviewData As String
        Dim str As String
        filename = "C:\\data.doc"
        listviewData = ""
        For Each str In ListView1.Items
            listviewData += str + " "
        Next
        File.WriteAllText(filename, listviewData)
    End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim filename As String
        Dim str As String
        filename = "C:\\data.txt"
        
       If (File.Exists(filename)) Then
          File.Delete(filename)

        For Each str In ListView1.Items
              File.AppendAllText(filename, str, System.Text.Encoding.ASCII)
        Next

End Sub

Imports PdfSharp
Imports PdfSharp.Drawing
Imports PdfSharp.Pdf

Public Class Anteprima




    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        pdf()
    End Sub
    Sub pdf()
        Dim document As PdfDocument = New PdfDocument
        document.Info.Title = "Rateizzazione Sanzioni CdS"

        Dim page As PdfPage = document.AddPage
        page.Size = PdfSharp.PageSize.A4

        Dim e As XGraphics = XGraphics.FromPdfPage(page)
        Dim font As XFont = New XFont("Arial", 14, XFontStyle.Regular)

        e.DrawString(Form1.Listview1, font, XBrushes.Black, 300, 250) ' inserire dati listview
        e.DrawLine(XPens.Black, 60, 310, 570, 310)

        Dim filename As String = "TestPDF.pdf"
        document.Save(filename)

        Process.Start(Filename)
    End Sub
End Class