VBA中设置动态打印区域的最优方法 现有代码打印范围缺失如何解决

现有代码核心错误 #

• 打印区域地址拼接逻辑错误：代码中Range("A15:O15" & LstRw)在O列后多写了15，假设A列最后一行行号LstRw为30，拼接出来的地址会变成A15:O1530，完全不符合「A到O列、15行到A列最后一行」的预期，是打印范围异常的核心原因。
• 打印区域赋值不符合参数要求：PrintArea属性要求传入A1样式的地址字符串，直接传入Range对象会触发隐式转换，大概率转换结果不符合要求，进一步导致打印范围识别错误。
• 工作表对象未明确绑定：依赖Select激活工作表后调用默认Cells的写法不稳定，若代码运行时激活工作表不是PartsList，获取的最后一行、生成的范围都会完全错位。

正确实现代码 #

Sub 动态设置PartsList打印区域()
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim printRange As Range
    
    ' 直接绑定目标工作表，避免依赖Select激活导致的异常
    Set targetWs = ThisWorkbook.Sheets("PartsList")
    ' 准确获取A列最后一行行号
    lastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
    ' 正确拼接打印范围：A列到O列，15行到A列最后一行
    Set printRange = targetWs.Range("A15:O" & lastRow)
    
    ' 传入范围地址赋值打印区域
    targetWs.PageSetup.PrintArea = printRange.Address
End Sub

额外排查项 #

如果修改代码后仍无法正常打印D到O列内容，可检查两项配置：

• D列到O列是否被设置为隐藏，Excel默认不会打印隐藏列内容
• 页面设置中是否配置了「打印标题」「仅打印选定区域」等限制规则，覆盖了打印区域配置

内容的提问来源于stack exchange，提问作者Jack van Hoof