[已解决]禁止工作表打印

szczm121

工作簿可以禁止打印。同一工作簿里，其中一张或几张工作表可以禁止打印吗?

最佳答案

月排行榜 / 总排行榜

cjainwei

2012-5-31 22:36

举个例子。比如不想让sheet1表打印就可以这样子。

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2. If ActiveSheet.Name = "Sheet1" Then
   
3.     Cancel = True
   
4.     MsgBox "节约用纸 拒绝打印", vbInformation
   
5. Else
   
6.     Cancel = False
   
7. End If
   
8. End Sub

复制代码

跳转到最佳答案楼层

ligh1298

1. '禁止预览与打印
   
2. Private Sub Workbook_BeforePrint(Cancel As Boolean) 　　
   
3. Cancel = True 　　
   
4. MsgBox "节约用纸 拒绝打印", vbInformation 　　
   
5. End Sub　　

复制代码

szczm121

不好意思，你这是整个工作簿不能打印。我只要求其中一张或几张工作表禁止打印

cjainwei

多加个if判断一下

cjainwei

举个例子。比如不想让sheet1表打印就可以这样子。

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2. If ActiveSheet.Name = "Sheet1" Then
   
3.     Cancel = True
   
4.     MsgBox "节约用纸 拒绝打印", vbInformation
   
5. Else
   
6.     Cancel = False
   
7. End If
   
8. End Sub

复制代码