با سلام
شما از این 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
PDF Viewer OCX ریجستر شده
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول