[تركي الحلواني]

السلام عليكم

في الأول قم بإضافة مكتبة : iTextSharp

وجرب هذا الكود بافتراض ان ملف الXML  موجود في نفس المسار للمشروع

PHP كود :

mports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO
Imports System.Xml

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' اسم الملف PDF الناتج
        Dim outputFile As String = "output.pdf"

        ' إنشاء ملف PDF
        Using doc As New Document()
            ' إضافة جميع البيانات الموجودة في ملف XML إلى الملف PDF
            Using writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(outputFile, FileMode.Create))
                doc.Open()

                ' قراءة ملف XML
                Dim xmlDoc As New XmlDocument()
                xmlDoc.Load("data.xml")

                ' تعيين ترميز الخط
                Dim baseFont As BaseFont = BaseFont.CreateFont("c:\\windows\\fonts\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
                Dim font As New Font(baseFont, 12)

                ' إضافة البيانات الموجودة في ملف XML إلى الملف PDF
                Dim nodes As XmlNodeList = xmlDoc.SelectNodes("/root/element")
                For Each node As XmlNode In nodes
                    Dim text As String = node.InnerText
                    doc.Add(New Paragraph(text, font))
                Next

                doc.Close()
                MessageBox.Show("تم إنشاء ملف PDF بنجاح.")
            End Using
        End Using
    End Sub
End Class