使用VBA宏打印Excel文件：添加行值检查后程序崩溃

问题根源 #

原代码崩溃有两个核心原因：

1. 语法错误：If语句缺少Then关键字，且未用End If闭合条件块，直接触发编译错误导致崩溃。
2. 逻辑顺序错误：先检查AE20的值再设置AF4=i，导致判断的是上一次循环的旧值，完全不符合需求逻辑。

修正后的基础版代码 #

Sub printF()
    Dim i As Long, printFrom As Long, printTo As Long

    printFrom = Sheet3.Range("AF6").Value
    printTo = Sheet3.Range("AF7").Value

    For i = printFrom To printTo
        ' 先设置当前循环的行号，确保AE20的值对应当前i
        Sheet3.Range("AF4").Value = i
        ' 仅当AE20值大于0时执行打印
        If Sheet3.Range("AE20").Value > 0 Then
            Sheet3.PrintOut Preview:=False
        End If
    Next i
End Sub

增强版（添加错误处理与计算刷新） #

如果AE20是依赖AF4的公式，或者需要避免非法输入导致的错误，可以使用以下版本：

Sub printF()
    Dim i As Long, printFrom As Long, printTo As Long

    ' 检查AF6、AF7是否为有效数值
    If Not IsNumeric(Sheet3.Range("AF6").Value) Or Not IsNumeric(Sheet3.Range("AF7").Value) Then
        MsgBox "打印起始/结束行号无效，请检查AF6和AF7单元格！"
        Exit Sub
    End If

    printFrom = Sheet3.Range("AF6").Value
    printTo = Sheet3.Range("AF7").Value

    ' 确保起始行不大于结束行
    If printFrom > printTo Then
        MsgBox "起始行号不能大于结束行号！"
        Exit Sub
    End If

    For i = printFrom To printTo
        Sheet3.Range("AF4").Value = i
        ' 强制刷新工作表，确保公式计算完成
        Sheet3.Calculate
        If Sheet3.Range("AE20").Value > 0 Then
            Sheet3.PrintOut Preview:=False
        End If
    Next i
End Sub

修改说明 #

• 调整执行顺序：先设置AF4=i，再判断AE20的值，保证判断的是当前循环对应的结果。
• 修正If语句语法：添加Then并使用End If闭合，符合VBA语法规范。
• 增强版额外添加：输入有效性检查、循环范围校验、强制计算刷新，避免潜在的运行错误。

内容的提问来源于stack exchange，提问作者Nguyễn Hữu Quốc