如題
例如下面所示的PDF， 里面有些表格，如果需要對表格寫入文字，該有什么樣的方法？
uj5u.com熱心網友回復：
你用百度搜索 C# pdfuj5u.com熱心網友回復：
pdf檔案中本身不存在table概念，獲取不出table物件，只能指定位置繪制內容，PDF中添加內容需要指定具體的坐標，如果要在上面加文本可以嘗試下面變得編碼Imports Spire.Pdf。
Imports Spire.Pdf.Graphics
Public Class Form1
Private Sub btn_Run_Click(sender As Object, e As EventArgs) Handles btn_Run.Click
'Create a pdf document
Dim doc As New PdfDocument()
'從系統中加載檔案
doc.LoadFromFile("C:\Program Files\e-iceblue\Spire.Pdf-Fe\Demos\Data\DrawContentWithSpotColor.pdf")
'獲取PDF檔案的第一頁
Dim page As PdfPageBase = doc.Pages(0)
AlignText(page)
'保存PDF檔案
doc.SaveToFile("TextDraw.pdf")
doc.Close()
'啟動PDF檔案
PDFDocumentViewer("TextDraw.pdf")
End Sub
Private Sub AlignText(ByVal page As PdfPageBase)
'繪制文本-對齊
Dim font As New PdfFont(PdfFontFamily.Helvetica, 20.0F)
Dim brush As New PdfSolidBrush(Color.Blue)
Dim leftAlignment As New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle)
'設定繪制文本的位置
page.Canvas.DrawString("Left!", font, brush, 0, 200, leftAlignment)
page.Canvas.DrawString("Left!", font, brush, 0, 250, leftAlignment)
Dim rightAlignment As New PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 200, rightAlignment)
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 250, rightAlignment)
Dim centerAlignment As New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, CLng(page.Canvas.ClientSize.Width) \ 2, 240, centerAlignment)
End Sub
Private Sub PDFDocumentViewer(ByVal fileName As String)
Try
Process.Start(fileName)
Catch
End Try
End Sub
End Class
uj5u.com熱心網友回復：
Spire.pdf，有如何操作Form部分內容，不過這個是要收費的，你可以找下破解版……uj5u.com熱心網友回復：
才記得在這里發過帖子。多謝樓上兩位大神的解答。 么么噠
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/52422.html
標籤：VB.NET
上一篇：【分享】NScript - 基于 .Net 框架的 Windows 腳本工具集;
下一篇：XtraReport報表重繪問題