VB.NET中用iTextSharp导出DataGridView带水印PDF的问题排查

1. 排查"Unknown PdfException"错误 #

• 捕获完整异常信息：将Catch块中的MessageBox.Show("Error generating PDF: " & ex.Message)修改为MessageBox.Show("Error generating PDF: " & ex.ToString())，完整的异常堆栈和内部异常信息会暴露真实错误原因（比如资源冲突、参数错误、流操作问题），iText的外层"Unknown PdfException"通常只是包装，内部才有具体细节。
• 验证iText版本兼容性：确认使用的是iText 7（代码中iText.Kernel等命名空间属于iText 7，非旧版iTextSharp），NuGet安装的所有iText相关包（itext7、itext7.layout等）版本必须一致。
• 逐步隔离测试：先注释掉水印相关代码，仅测试DataGridView导出PDF的基础功能，确认表格导出正常后，再逐步添加水印逻辑定位问题。

2. 正确为PDF每一页添加水印的方法 #

核心是直接通过PdfCanvas将水印绘制到页面背景层，避免干扰原文档的结构。步骤如下：

1. 预加载水印图片，获取尺寸；
2. 遍历每一页，计算水印的目标位置（比如居中）；
3. 使用PdfCanvas设置透明度并绘制图片，确保操作在背景流中执行。

修正后的水印方法：

Private Sub AddWatermarkBackground(pdf As PdfDocument, watermarkPath As String)
    ' 预加载水印图片，避免循环重复读取文件
    Dim watermarkImage As ImageData = ImageDataFactory.Create(watermarkPath)
    Dim imageWidth As Single = watermarkImage.GetWidth()
    Dim imageHeight As Single = watermarkImage.GetHeight()

    For i As Integer = 1 To pdf.GetNumberOfPages()
        Dim page As PdfPage = pdf.GetPage(i)
        Dim pageSize As iText.Kernel.Geom.Rectangle = page.GetPageSize()
        
        ' 创建画布并绑定到页面背景流
        Dim pdfCanvas As New PdfCanvas(page.NewContentStreamBefore(), page.GetResources(), pdf)
        pdfCanvas.SaveState()
        pdfCanvas.SetFillOpacity(0.3F) ' 设置水印透明度

        ' 计算居中位置：(页面宽度-图片宽度)/2, (页面高度-图片高度)/2
        Dim x As Single = (pageSize.GetWidth() - imageWidth) / 2
        Dim y As Single = (pageSize.GetHeight() - imageHeight) / 2

        ' 绘制水印图片
        pdfCanvas.AddImage(watermarkImage, imageWidth, 0, 0, imageHeight, x, y, False)
        pdfCanvas.RestoreState()
    Next
End Sub

3. 原代码中的常见错误 #

• 重复创建Document实例：在AddWatermarkBackground的循环中每次新建Document，会破坏原PdfDocument的内部结构，直接导致PDF文件损坏或为空。
• 水印位置参数冲突：原代码中SetFixedPosition(0, 0, page.GetPageSize().GetWidth(), page.GetPageSize().GetHeight())与SetAutoScale(True)逻辑冲突，前者强制拉伸图片到页面尺寸，后者又自动缩放，导致位置偏移或水印不可见。
• 内容与水印的时序问题：原代码在document.Add(table)后直接添加水印，此时Document尚未完成布局渲染（比如表格分页的场景），部分页面可能未完全生成。正确的时序是先关闭Document确保所有页面生成，再处理水印。

修正后的完整导出方法：

Public Sub ExportDataGridViewToPdfWithWatermark(dgvRegularUser As DataGridView, filePath As String, watermarkPath As String)
    Try
        If String.IsNullOrEmpty(filePath) OrElse String.IsNullOrEmpty(watermarkPath) Then
            Throw New ArgumentException("File path or watermark path cannot be empty.")
        End If

        If Not File.Exists(watermarkPath) Then
            Throw New FileNotFoundException("Watermark image not found.", watermarkPath)
        End If

        Using writer As New PdfWriter(filePath)
            Using pdf As New PdfDocument(writer)
                ' 用Using块包裹Document，确保内容渲染完成后自动关闭
                Using document As New Document(pdf)
                    Dim table As New Table(dgvRegularUser.ColumnCount)
                    table.SetWidth(UnitValue.CreatePercentValue(100))

                    ' 添加表头
                    For Each column As DataGridViewColumn In dgvRegularUser.Columns
                        table.AddHeaderCell(column.HeaderText)
                    Next

                    ' 添加行数据
                    For Each row As DataGridViewRow In dgvRegularUser.Rows
                        If Not row.IsNewRow Then
                            For Each cell As DataGridViewCell In row.Cells
                                Dim cellValue As String = If(cell.Value IsNot Nothing, cell.Value.ToString(), String.Empty)
                                table.AddCell(cellValue)
                            Next
                        End If
                    Next

                    document.Add(table)
                End Using ' Document关闭后，所有页面已生成

                ' 执行水印添加逻辑
                AddWatermarkBackground(pdf, watermarkPath)
            End Using
        End Using

        MessageBox.Show("PDF Exported Successfully with Watermark!")
    Catch ex As Exception
        ' 输出完整异常信息便于排查
        MessageBox.Show("Error generating PDF: " & ex.ToString())
    End Try
End Sub

内容的提问来源于stack exchange，提问作者Gorilla Byte