با سلام
شما از این dll استفاده کنید شاید بدردتون بخوره
اینم مثال کار با این dll :
Dim docPDF As sPDF.sPDF = New sPDF.sPDF("Address File DLL", , , , , , _
"TESTsPDF", "a test of sPDF!", Environment.UserName)
docPDF.setText(CShort(50), CShort(350), CShort(45))
docPDF.writeText("Oblique!", False, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.BoldItalic, 50, "Blue")
docPDF.writeImage(Application.StartupPath & "\pacifica.gif", 300, 50, 30, 30)
docPDF.setText(320, 300)
docPDF.writeText("field1 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Blue", True)
docPDF.setText(320, 330)
docPDF.writeText("field2 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Green", True)
docPDF.setText(320, 360)
docPDF.writeText("field3 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Yellow", True)
docPDF.setText(150, 450, 30, 0)
docPDF.writeText("Courier Bold", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.Bold, 24)
docPDF.writeText("Courier Italic", True, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.Italic, 24)
docPDF.writeText("ArialHelvetica", True, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.Regular, 24)
docPDF.writeText("etc... etc...", True, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.BoldItalic, 24, "Red")
docPDF.writeWebLink("http://www.google.it", "http://www.google.it", 350, 630, , , , 16)
docPDF.writeLine(40, 800, 40, 500)
docPDF.writeLine(40, 800, 100, 600)
docPDF.writeLine(40, 800, 160, 700)
docPDF.writeLine(40, 800, 200, 800)
docPDF.closePDF(True)
docPDF = Nothing