Dim fs As FileStream = File.Create(Environment.GetFolderPath( _
  Environment.SpecialFolder.MyDocuments) & "ToPrint.prn")
 
            Dim readText As String = File.ReadAllText(<Pfad zur PDF>, _
              Encoding.Default)
            AddText(fs, readText)
 
            fs.Close()
 
        Else
            MsgBox("Pfad existiert nicht!")
        End If
 
    End Sub
 
    'Hilfsmethode, um Text in File zu schreiben
    Private Shared Sub AddText(ByVal fs As FileStream, ByVal value As String)
        Dim info As Byte() = New UTF8Encoding(True).GetBytes(value)
        fs.Write(info, 0, info.Length)
    End Sub