[已解决]在打印时判断某一单元格的数值是否达到要求

hjq0188

在打印时判断某一单元格（F1）的数值是否达到要求，如果达到了可以打印，如果没有达到提示信息并不打印。
用VBA打印事件如何编写。

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-21 12:13

hjq0188 发表于 2013-5-21 11:32
在线等啊。。。。。。

把下面的代码加入THISWORKBOOK中
如果 SHEET1 工作表 F1的内容  是 “是”，执行打印，否则不执行打印

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2.     If Sheets("SHEET1").Range("F1") = "是" Then
   
3.     Else
   
4.     Cancel = True
   
5.     End If
   
6. End Sub

复制代码

301240-VBA-工作簿打印事件.rar (6.11 KB, 下载次数: 73)

2013-5-21 12:13 上传

点击文件名下载附件

跳转到最佳答案楼层

hjq0188

在线等啊。。。。。。

那么的帅

hjq0188 发表于 2013-5-21 11:32
在线等啊。。。。。。

没看清要求，代码在楼下

那么的帅

hjq0188 发表于 2013-5-21 11:32
在线等啊。。。。。。

把下面的代码加入THISWORKBOOK中
如果 SHEET1 工作表 F1的内容  是 “是”，执行打印，否则不执行打印

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2.     If Sheets("SHEET1").Range("F1") = "是" Then
   
3.     Else
   
4.     Cancel = True
   
5.     End If
   
6. End Sub

复制代码

301240-VBA-工作簿打印事件.rar (6.11 KB, 下载次数: 73)

2013-5-21 12:13 上传

点击文件名下载附件

hjq0188

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheet1.Range("F1") < 30000 Then
      MsgBox "不准打印,订货金额不能低于30000", vbOKOnly + vbExclamation, "提示"
      Cancel = True
    End If

End Sub

hjq0188

我用这个搞掂了{:101:}

那么的帅

hjq0188 发表于 2013-5-21 14:34
我用这个搞掂了

意思一样，只是不符合条件加上了提示。
关键是 Cancel = True 这句代码