如何通过VBA在导出的PDF文档中打印Excel行号与列标？

要实现导出PDF时包含行号和列标，你需要使用Excel PageSetup对象的PrintHeadings属性，这是控制行号（行标题）和列标（列标题）打印的正确开关。你之前尝试的LineNumbering是Word对象模型的属性，Excel中并不适用；PrintTitleColumns用于设置重复打印的标题列（比如首列跨页重复），和行号列标无关。

修改后的完整代码 #

Sub PrintToPDF()
' Saves active sheet as PDF file.
Dim Name As String
Dim wkPrint As Worksheet

FileNameArray = Split(ThisWorkbook.Name, ".")
Name = ThisWorkbook.Path & "\" & Format(Now(), "yyyy-mm-dd") & "_" & FileNameArray(0) & ".pdf"

Set wkPrint = ThisWorkbook.Worksheets("Dokumentation")

' 关闭打印通信可加快PageSetup设置速度（可选）
Application.PrintCommunication = False

With wkPrint.PageSetup
    .PaperSize = xlPaperA3
    .RightHeader = "&D &T"
    .PrintGridlines = True
    .PrintHeadings = True ' 关键：启用行号和列标的打印
    '.PrintTitleColumns = "A:AA" ' 若需要重复打印A-AA列可保留，否则可注释
End With

Application.PrintCommunication = True

wkPrint.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
Exit Sub
err:
MsgBox err.Description
End Sub

关键说明 #

• .PrintHeadings = True：这一行是核心，启用后Excel会在打印/导出PDF时包含行号（左侧的1、2、3...）和列标（顶部的A、B、C...）。
• Application.PrintCommunication = False/True：关闭打印通信可以避免每次设置PageSetup属性时都刷新预览，提升代码执行效率，属于可选优化。
• 如果你需要跨页重复打印特定列（比如首列），可以保留.PrintTitleColumns = "A:AA"，否则可以注释或删除该行。

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