Try
        Dim doc As Report
        Dim schriftart As FontDef
        Dim seite As Page
        Dim fontprop As FontProp
        Dim w As Integer
        Dim j As Integer
 
        'PDF-Datei erstellen
        doc = New Report(New PdfFormatter())
        'doc.sAuthor = "Klostermann Daniel"
 
        'Schriftinfos
        schriftart = New FontDef(doc, "Times New Roman")
        fontprop = New FontProp(schriftart, 12)
 
        'Neue Seite erstellen
        seite = New Page(doc)
 
        'Text erstellen
        Dim i As Double = 20
        For w = 0 To ListBox1.Items.Count - 1
            daten(w) = ListBox1.Items(w)
            seite.AddCB_MM(20 + i, 20 + i, New RepString(fontprop, daten(w)))
            i += 10
        Next
 
        'Dokument speichern   ----FEHLER
        doc.Save("C:\Dokumente und Einstellungen\Daniel\Eigene" & _
          "Dateien\Dateiinfos.pdf")
 
        Catch ex As Exception
 
        End Try