这个问题的核心在于冻结窗格和PDF导出的逻辑不匹配：

• 冻结窗格是Excel界面中用来滚动时固定表头的功能，它本身不会自动变成打印/导出时的重复表头。
• 你直接导出指定单元格区域时，Excel只会处理该区域的内容分页，不会自动把冻结的行添加到后续页面的顶部，导致后续页面的表头被裁剪。
• 加上你设置了“宽度1页、高度自动”的分页规则，Excel在拆分页面时会优先压缩宽度到1页，进一步挤压了表头的显示空间，加剧了裁剪问题。

我们需要手动配置打印时的重复表头，同时调整导出逻辑，让Excel在分页时自动把冻结的行加到每一页顶部。下面是修改后的完整代码：

Dim lastRow As Long
Dim lastCol As Long
Dim originalPrintArea As String
Dim originalFitToPagesWide As Long
Dim originalFitToPagesTall As Long
Dim originalPrintTitleRows As String
Dim freezeRows As Integer

' 保存原页面设置，避免修改后影响工作表后续使用
originalPrintArea = targetWksht.PageSetup.PrintArea
originalFitToPagesWide = targetWksht.PageSetup.FitToPagesWide
originalFitToPagesTall = targetWksht.PageSetup.FitToPagesTall
originalPrintTitleRows = targetWksht.PageSetup.PrintTitleRows

' 获取需要导出的区域范围
lastRow = getLastRow(targetWksht)
lastCol = getLastCol(targetWksht)

' 获取冻结窗格的行数（如果有）
If targetWksht.Windows(1).FreezePanes Then
    freezeRows = targetWksht.Windows(1).SplitRow
End If

With targetWksht.PageSetup
    ' 设置页面布局：宽度1页，高度自动
    .FitToPagesWide = 1
    .FitToPagesTall = False
    ' 设置打印区域为目标范围
    .PrintArea = targetWksht.Range(targetWksht.Cells(1, 1), targetWksht.Cells(lastRow, lastCol)).Address
    ' 如果有冻结窗格，设置顶端重复标题行
    If freezeRows > 0 Then
        .PrintTitleRows = "$1:$" & freezeRows
    End If
End With

' 导出整个工作表（此时会应用页面设置的打印区域和重复表头）
targetWksht.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Application.ActiveWorkbook.Path & "\" & fileName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, ' 这里要设为False，才能使用我们设置的打印区域
    OpenAfterPublish:=True

' 恢复原页面设置
With targetWksht.PageSetup
    .PrintArea = originalPrintArea
    .FitToPagesWide = originalFitToPagesWide
    .FitToPagesTall = originalFitToPagesTall
    .PrintTitleRows = originalPrintTitleRows
End With

• 保存并恢复原设置：避免修改页面设置后影响用户后续使用工作表
• 设置打印区域替代直接导出Range：让Excel的页面设置规则（包括重复表头）能生效
• 配置PrintTitleRows：把冻结的行设置为每一页的重复表头，确保后续页面都能显示表头
• IgnorePrintAreas设为False：强制使用我们指定的打印区域，而不是忽略它

这样修改后，导出的PDF每一页都会保留冻结的前两行表头，同时保持宽度为1页、高度自动的布局要求。

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