Prevent Users From Printing

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
   Cancel = True 
   Call MsgBox("You are not allowed to print this workbook.", vbInformation + vbOKOnly) 
End Sub 

Prevent Certain Sheets

You could still select a different worksheet and then print the whole workbook ??

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
   Select Case ActiveSheet.Name 
      Case "Sheet1", "Sheet2" 
         Cancel = True 
         Call MsgBox("You are not allowed to print this particular worksheet.", vbInformation + vbOKOnly) 
   
   End Select 
End Sub