سلام
ببین ان استفاده از همون کامژوننتی هست که برای دانلود گذاشتم
Imports X2PDF
Module Tester
Public Sub main()
Dim pdf As PDFDocument, text As String, texts As TextArea
Dim table As Table, row As Row, cell As Cell
texts = New TextArea()
pdf = New PDFDocument()
pdf.OutputFileName = "c:\temp\pdfnet.pdf"
pdf.Creator = "David Bliss"
pdf.AddControl(texts)
texts = New TextArea()
text = "x2PDF is a .Net API for creating PDF documents on the fly. " _
+ "The first version will be created in .Net, with other version for COM and Java. " _
texts.AddText(text, Fonts.Helvetica, 10)
texts.AddText("Things that are working:", Fonts.Courier, 12)
texts.AddText("1. Text and wordwrapping", Fonts.Courier, 12)
texts.AddText("2. Adobe Fonts and font sizes", Fonts.Courier, 12)
texts.AddText("3. Bold text", Fonts.Courier, 12, FontStyles.Bold)
texts.AddText("4. Tables", Fonts.Courier, 12, FontStyles.Regular)
pdf.AddControl(texts)
texts = New TextArea()
table = New Table()
row = New Row()
cell = New Cell()
cell.AddText("First Cell")
row.AddCell(cell)
cell = New Cell()
cell.AddText("Second Cell")
row.AddCell(cell)
table.AddRow(row)
row = New Row()
cell = New Cell()
cell.AddText("Third Cell")
row.AddCell(cell)
cell = New Cell()
cell.AddText("Fourth Cell")
row.AddCell(cell)
table.AddRow(row)
pdf.AddControl(table)
pdf.OutputToFile()
End Sub
End Module
با تشکر