ลองใช้ ItextSharp แล้วแสดงภาษาไทยไม่ได้อ่ะค่ะ และสามารถเซต DataGrid ให้เป็นแนวตั้งเหมือน DetailsView ได้ไหมคะ

 Protected Sub cmd_SendMail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd_SendMail.Click
        'Response.Redirect("MyPDF/PdfDoc.pdf")
        Dim EnCodefont As BaseFont = BaseFont.CreateFont(Server.MapPath("~/Fonts/THSarabun.ttf"), BaseFont.IDENTITY_H, BaseFont.EMBEDDED)

        Dim Nfont As Font = New Font(EnCodefont, 18, Font.NORMAL)

        Response.ContentType = "application/pdf"

        Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.pdf")

        Response.Cache.SetCacheability(HttpCacheability.NoCache)

        Dim sw As New StringWriter()

        Dim hw As New HtmlTextWriter(sw)

        gv_RC.AllowPaging = False

        gv_RC.DataBind()

        gv_RC.RenderControl(hw)

        Dim sr As New StringReader(sw.ToString())

        Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 10.0F, 0.0F)

        Dim htmlparser As New HTMLWorker(pdfDoc)

        PdfWriter.GetInstance(pdfDoc, Response.OutputStream)

        pdfDoc.Open()
        pdfDoc.Add(New Paragraph("                                                               ใบขอว่าจ้างพนักงาน", Nfont))
        pdfDoc.Add(New Phrase("         ", Nfont))
        pdfDoc.Add(New Phrase("วันที่ :    ", Nfont))
        pdfDoc.Add(New Chunk(lbl_Date.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                                                                                                                                    ", Nfont))
        pdfDoc.Add(New Phrase("สาขาบริษัทที่ร้องขอ :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Branch.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                                                                                           ", Nfont))
        pdfDoc.Add(New Phrase("ฝ่ายที่ร้องขอ :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Division0.Text.ToString, Nfont))
        pdfDoc.Add(New Chunk(txt_Division0.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("         ", Nfont))
        pdfDoc.Add(New Phrase("แผนกที่ร้องขอ :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Department0.Text.ToString, Nfont))
        pdfDoc.Add(New Chunk(txt_Department0.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                                                              ", Nfont))
        pdfDoc.Add(New Phrase("ชื่อ-นามสกุลผู้ร้องขอ :   ", Nfont))
        pdfDoc.Add(New Chunk(txt_RName.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                                                                                                                    ", Nfont))
        pdfDoc.Add(New Phrase("ตำแหน่งที่ต้องการ :   ", Nfont))
        pdfDoc.Add(New Chunk(rbl_Jobs.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("  ", Nfont))
        pdfDoc.Add(New Chunk(txt_OtherPosition.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                                                                                                              ", Nfont))
        pdfDoc.Add(New Phrase("วุฒิการศึกษา :   ", Nfont))
        pdfDoc.Add(New Chunk(rbl_Education.Text.ToString, Nfont))
        pdfDoc.Add(New Chunk(txt_OtherEducation.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("  ", Nfont))
        pdfDoc.Add(New Phrase("สาขาวิชา :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Disciplines.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                               ", Nfont))
        pdfDoc.Add(New Phrase("เพศ :   ", Nfont))
        pdfDoc.Add(New Chunk(rbl_Sex.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("  ", Nfont))
        pdfDoc.Add(New Phrase("อายุ :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Age.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                             ", Nfont))
        pdfDoc.Add(New Phrase("อัตราที่รับ :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Number.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("                                             ", Nfont))
        pdfDoc.Add(New Phrase("ให้สังกัดฝ่าย :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Division.Text.ToString, Nfont))
        pdfDoc.Add(New Chunk(txt_Division.Text.ToString, Nfont))
        pdfDoc.Add(New Phrase("  ", Nfont))
        pdfDoc.Add(New Phrase("ให้สังกัดแผนก :   ", Nfont))
        pdfDoc.Add(New Chunk(ddl_Department.Text.ToString, Nfont))
        pdfDoc.Add(New Chunk(txt_Department.Text.ToString, Nfont))

        'htmlparser.Parse(sr)

        pdfDoc.Close()

        Response.Write(pdfDoc)

        Response.End()
        'ClearData()
    End Sub

Response.Charset= "Widnows-874"

Response.ContentType = "application/pdf"
Response.Charset= "Windows-874"