iTextSharp 5.4.2.0：多页PDF末尾底部对齐放置汇总表问题

核心思路 #

先计算主表格结束后当前页的剩余空间，与汇总表总高度对比：

• 空间足够：直接在当前页剩余区域底部对齐放置汇总表
• 空间不足：新建一页，在新页底部对齐放置汇总表

具体实现步骤及代码 #

1. 基础对象初始化（含页眉配置）

   Dim document As New Document(PageSize.A4, 50, 50, 70, 50) ' 左、右、上、下页边距
   Dim writer As PdfWriter = PdfWriter.GetInstance(document, New FileStream("output.pdf", FileMode.Create))
   
   ' 绑定页眉事件（需自行实现MyPageEventHandler类处理页眉逻辑）
   AddHandler writer.PageEvent, AddressOf MyPageEventHandler
   
   document.Open()
   

2. 写入主表格（已配置KeepRowsTogether）

   ' 示例主表格，根据实际需求填充内容
   Dim mainTable As New PdfPTable(3)
   mainTable.KeepRowsTogether(0, mainTable.Rows.Count - 1) ' 确保整表不跨页拆分
   ' ... 填充主表格数据 ...
   document.Add(mainTable)
   

3. 计算空间与表格高度

   ' 创建并填充汇总表
   Dim summaryTable As New PdfPTable(2)
   summaryTable.WidthPercentage = 100
   ' ... 填充汇总表数据 ...
   summaryTable.CompleteRow() ' 确保表格高度计算准确
   Dim summaryHeight As Single = summaryTable.TotalHeight
   
   ' 获取当前页剩余可用空间
   Dim currentContentBottom As Single = writer.GetVerticalPosition(False)
   Dim pageHeight As Single = document.PageSize.Height
   Dim bottomMargin As Single = document.BottomMargin
   Dim remainingSpace As Single = currentContentBottom - bottomMargin
   

4. 判断位置并放置汇总表

   If remainingSpace < summaryHeight Then
       ' 剩余空间不足，新建一页
       document.NewPage()
       ' 计算汇总表顶部位置，实现底部对齐
       Dim summaryTopPos As Single = pageHeight - bottomMargin - summaryHeight
       summaryTable.WriteSelectedRows(0, -1, document.LeftMargin, summaryTopPos, writer.DirectContent)
   Else
       ' 空间足够，当前页底部对齐放置
       Dim summaryTopPos As Single = currentContentBottom - summaryHeight
       summaryTable.WriteSelectedRows(0, -1, document.LeftMargin, summaryTopPos, writer.DirectContent)
   End If
   

5. 关闭文档

   document.Close()
   

关键说明 #

• WriteSelectedRows是iTextSharp 5.x实现表格精准定位的核心方法，通过指定顶部坐标实现底部对齐
• 必须调用summaryTable.CompleteRow()，否则表格的TotalHeight计算可能不准确
• 页眉逻辑需通过继承PdfPageEventHelper实现自定义事件处理类，确保每页页眉正常渲染

内容的提问来源于stack exchange，提问作者El See