[已解决]请高手指点下这个打印代码，谢谢高手的帮忙。

qiongmei

我附件上有2表，当表1的b2:c2,e2:f2任何一个单元格不为空的时候，则打印表2，但表1的b2:c2,e2:f2任何一个单元格出现空白的时候，则弹出提示框“票据号未输入或日期未输入”，谢谢高手的帮忙。

XtS8M9HO.rar (1.66 KB, 下载次数: 4)

2010-3-24 23:12 上传

点击文件名下载附件
请高手指点下这个打印代码，谢谢高手的帮忙。

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-24 23:51

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Len([b2]) = 0 Or Len([e2]) = 0 Then
    MsgBox "票据号未输入或日期未输入"
    Cancel = True
End If
End Sub

跳转到最佳答案楼层

枯禅

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Len([b2]) = 0 Or Len([e2]) = 0 Then
    MsgBox "票据号未输入或日期未输入"
    Cancel = True
End If
End Sub

zsd5237

学习[em02][em02]