同時設定 FixedRowHeight 及 IsRowBroken 會導致換頁時多一列空列

同時設定 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

@twTerry

我们已在内部问题跟踪系统中打开以下新票证,并将根据 Free Support Policies 中提到的条款提供修复。

问题 ID:PDFNET-58013

如果您需要优先支持,以及直接联系我们的付费支持管理团队,您可以获取 Paid Support Services