同時設定 FixedRowHeight 及 IsRowBroken = True 時，會導致換頁時多一列空列
PDFQ4.pdf (6.5 KB)
PicQ4.png (5.5 KB)
Public Sub Gen_PDF_Q4()
AsposeFunc.AsposePDFLicense_20240906()
Dim RowCount As Integer = 70
Dim ColCount As Integer = 5
Dim pDoc As New Aspose.Pdf.Document()
Dim pPages As Aspose.Pdf.PageCollection = pDoc.Pages
Dim pPage As Aspose.Pdf.Page = pPages.Add()
pPage.SetPageSize(Aspose.Pdf.PageSize.A4.Width, Aspose.Pdf.PageSize.A4.Height)
Dim PageMargin As New Aspose.Pdf.MarginInfo With {.Top = 25, .Left = 25, .Right = 25, .Bottom = 25}
Dim pPageInfo As Aspose.Pdf.PageInfo = pPage.PageInfo
pPageInfo.Margin = PageMargin
Dim pTable As New Aspose.Pdf.Table With {.ColumnWidths = "20% 20% 20% 20% 20%"}
pPage.Paragraphs.Add(pTable)
Dim Border As New Aspose.Pdf.BorderInfo With {
.Top = New Aspose.Pdf.GraphInfo With {.LineWidth = 0.5},
.Left = New Aspose.Pdf.GraphInfo With {.LineWidth = 0.5},
.Right = New Aspose.Pdf.GraphInfo With {.LineWidth = 0.5},
.Bottom = New Aspose.Pdf.GraphInfo With {.LineWidth = 0.5}
}
Dim pRows As Aspose.Pdf.Rows = pTable.Rows
For iRow As Integer = 0 To RowCount - 1
Dim pRow As Aspose.Pdf.Row = pRows.Add()
#Region "問題4"
pRow.FixedRowHeight = 25
pRow.IsRowBroken = True
#End Region
Dim pCells As Aspose.Pdf.Cells = pRow.Cells
For iCol As Integer = 0 To ColCount - 1
Dim R1C1 As String = "R" & iRow + 1 & "C" & iCol + 1
Dim pCell As Aspose.Pdf.Cell = pCells.Add(R1C1)
pCell.Border = Border
Next
Next
pDoc.Save("X:\Coding\PDFQ4.pdf")
End Sub