Mega Code Archive
If you want to prevent users from printing only particular sheets in your workbook, use this similar code instead
<![CDATA[
Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sheet1", "Sheet2"
Cancel = True
MsgBox "Sorry, you cannot print this sheet from this workbook", vbInformation
End Select
End Sub
]]>