[سعود]

المعذرة فلم اعرف الا النقطة رقم 2 وهي سهلة

كود :

Dim doc As New PdfDocument()
        doc.Pages.Add(New PdfPage())
        Dim xgr As XGraphics = XGraphics.FromPdfPage(doc.Pages(0))
        Dim img As XImage = XImage.FromFile(TextBox1.Text)
        xgr.DrawImage(img, 0, 0)
        doc.Save(TextBox2.Text & an & ".pdf")
        doc.Close()

المكتبة موجةدة بالمثال اللي كتبت رابطه
فقط استبدل الغير معرفة بماعندك