Aspose.pdf 表格欄位的HorizontalAlignment

wisemaker · September 10, 2020, 10:14am

您好：
Aspose.Pdf.Text.TextState中的HorizontalScaling，是否能做到分散對齊(Disperse)？？

使用的Aspose.pdf版本為Version: 20.9

謝謝

asad.ali · September 10, 2020, 6:22pm

您是否愿意通过共享示例源和预期的输出文件来共享有关您需求的更多详细信息？另外，请分享您正在使用的代码段。我们将进一步为您提供帮助。

wisemaker · September 11, 2020, 3:02am

您好：
'Share The Source Code*********
Dim doc As New Aspose.Pdf.Document
Dim page As Aspose.Pdf.Page
Dim pTable As New Aspose.Pdf.Table

page = doc.Pages.Add

pTable.ColumnWidths = “50 50 50 50 50 50”
pTable.Border = New Aspose.Pdf.BorderInfo(BorderSide.All, 0.5F, Color.FromRgb(System.Drawing.Color.Blue))

pTable.DefaultCellBorder = New Aspose.Pdf.BorderInfo(Aspose.Pdf.BorderSide.All, 0.5F, Aspose.Pdf.Color.FromRgb(System.Drawing.Color.Red))

Dim row As Aspose.Pdf.Row

Dim textstate1 As New Aspose.Pdf.Text.TextState
textstate1.HorizontalAlignment = HorizontalAlignment.center

row = pTable.Rows.Add
row.Cells.Add(“欄位1”)
row.Cells.Add(“欄位2”)
row.Cells(1).DefaultCellTextState = textstate1
row.Cells.Add(“欄位3”)
row.Cells.Add(“欄位4”)
row.Cells.Add(“欄位5”)
row.Cells.Add(“欄位6”)

doc.Pages(1).Paragraphs.Add(pTable)

Dim resultName As String = “test_001.pdf”
Dim PrnDir As String = SystemPath & “\reportData”
’ 判斷路徑是否存在，無則建立 必要項
Dim DirectoryInfo = New DirectoryInfo(PrnDir)
If Not DirectoryInfo.Exists Then DirectoryInfo.Create()

doc.Save(PrnDir & resultName, Aspose.Pdf.SaveFormat.Pdf)
'Share The Source Code*********