[كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF

كود :

   Private Function CellData(TheText As String, TheFont As Font, Optional TheColor As BaseColor = Nothing, Optional TheTopDistance As Integer = 0, Optional TheStartDistance As Integer = 0, Optional theAlignment As Integer = 0) As PdfPCell

        Dim CellFont As Font = New Font(TheFont)

        CellFont.Color = If(TheColor Is Nothing, BaseColor.BLACK, TheColor)



        Dim C As PdfPCell = New PdfPCell(New Phrase(0, TheText, CellFont))

        C.Border = BorderStyle.None

        C.PaddingTop = TheTopDistance

        C.HorizontalAlignment = theAlignment    '1 center   2    left     0  right >>>> default

        If theAlignment = 2 Then

            C.PaddingLeft = TheStartDistance

        Else

            C.PaddingRight = TheStartDistance

        End If

        Return C

    End Function

كود :

   Private Sub WritPrescription(ByVal pdfdocument_path As String)

        Dim Prescription As New Document(PageSize.A5.Rotate, 0, 0, 0, 0)

        Dim writer As PdfWriter = PdfWriter.GetInstance(Prescription, New FileStream(pdfdocument_path, FileMode.Create))

        Prescription.Open()



        'Create a PDF image object from our physical image

        Dim ThisImage = itextsharp.text.Image.GetInstance("n.jpg")

        'Scale the image

        Dim NewW, NewH As Single

        NewW = Prescription.PageSize.Width

        NewH = Prescription.PageSize.Height

        ThisImage.ScaleToFit(NewW, NewH)

        'Add the image to the document under text

        ThisImage.SetAbsolutePosition(0, 2)

        Dim under As PdfContentByte = writer.DirectContentUnder

        under.AddImage(ThisImage)



        'add font to Write arabic letters

        Dim fontpath As String = Environment.GetEnvironmentVariable("SystemRoot") + "\\fonts\\times.ttf"

        Dim BaseFont As BaseFont = BaseFont.CreateFont(fontpath, BaseFont.IDENTITY_H, BaseFont.EMBEDDED)

        Dim arabicfont As Font = New Font(BaseFont, 12, itextsharp.text.Font.BOLD, BaseColor.BLACK)



        Dim tbl As PdfPTable = New PdfPTable(1)

        'resize table to Writing part

        tbl.TotalWidth = 360.0F

        'set writing direction

        tbl.RunDirection = PdfWriter.RUN_DIRECTION_RTL



        'write name

        tbl.AddCell(CellData(txtname.Text, arabicfont, BaseColor.BLACK, 41, 70, 0))

        'write age and date

        tbl.AddCell(CellData(Today.Date & Space(40) & txtage.Text, arabicfont, BaseColor.BLACK, 10, 80, 0))

        'write drugs

        tbl.AddCell(CellData(txtdrug1.Text & " - ", arabicfont, BaseColor.BLUE, 30, 20, 2))

        tbl.AddCell(CellData(txtdrug2.Text & " - ", arabicfont, BaseColor.BLUE, 20, 20, 2))

        tbl.AddCell(CellData(txtdrug3.Text & " - ", arabicfont, BaseColor.BLUE, 20, 20, 2))

        tbl.AddCell(CellData(txtdrug4.Text & " - ", arabicfont, BaseColor.BLUE, 20, 20, 2))

        tbl.AddCell(CellData(txtdrug5.Text & " - ", arabicfont, BaseColor.BLUE, 20, 20, 2))



        ' ádd data table to Prescription

        tbl.WriteSelectedRows(0, -1, Prescription.Left + 182, Prescription.Top, writer.DirectContent)

        Prescription.Close()

        'open Prescription

        Process.Start(pdfdocument_path)

    End Sub