Export HTml to Pdf using vb.net with Save As Option

See more:

VB

Hi All,
This is the code that i have used to export html to pdf using vb.net.
the pdf file gets saved in the default path given. But i want to export with Save File As option
so that the end user could save the file in desired location.

CODE:

Str.Clear()
                Str.Append("<table cellspacing=1 cellpadding=0 border=0 width=100% align=center class='tblrpt'>")
                Str.Append("<tr class='bbtdwht'><td align='center' colspan='3'><b>No Record(s) Found  </b></td></tr>")
                Str.Append("</table>")
                Dim StrContent As String
                StrContent = Str.ToString
                Dim doc As New Document(PageSize.LETTER, 80, 50, 30, 65)
                Dim fsNew As New StringReader(StrContent)
                Dim document As New Document(PageSize.A4, 80, 50, 30, 65)
                Using fs As New FileStream(Request.ApplicationPath & "/Print/Pf" & Session("User_id") & ".pdf", FileMode.Create)
                    PdfWriter.GetInstance(document, fs)
                    Using stringReader As New StringReader(StrContent)
                        Dim parsedList = html.simpleparser.HTMLWorker.ParseToList(stringReader, Nothing)
                        document.Open()
                        For Each item As Object In parsedList
                            document.Add(DirectCast(item, IElement))
                        Next
                        document.Close()
                    End Using
                End Using