恳请大神们帮忙看下这个按指定条件打印的代码哪里出错了

qiongmei6

我附件上有一个代码，我的本意是m2<>0的情况下，打印启动，但是如果m2出现出现<>0的情况下，提示“数据出错，请检查”并取消下一步的打印，但是这个代码现在不管m2<>或者=0，都报错了，恳请大神们帮忙看下是哪里出错了，谢谢大神的帮忙

wengjl

你在 IF ... 前加个  
   aa = Len(Range("m2"))
   MsgBox aa
然后按F8观察一下就知道为什么了

tanglf188

m2里有计算公式，结果为0没显示而已，不是空
Sub 打印数字人民币()
    If Range("m2").Value <> 0 Then
        MsgBox "数据有错，请检查"
        Exit Sub
    End If
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

鄂龙蒙

1. Sub 打印数字人民币()
   
2.    
   
3.     If Val(Range("m2")) = 0 Then
   
4.         MsgBox "数据无误，OK!"
   
5.         Exit Sub
   
6.     End If
   
7.    
   
8.     MsgBox "执行打印程序！"
   
9. 
   
10. '     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
11. 
    
12. End Sub
    

复制代码

qiongmei6

按了f8啥都没看到，也不知道自己错在哪里，不过也谢谢wengjl师傅的回答