Private Sub Worksheet_Change(ByVal Target As Range)If Target.Font.Name <> "黑体" Then在这里调用这个SUB“ Workbook_BeforePrint”怎么写???End IfEnd SubPublic Sub Workbook_BeforePrint(Cancel As Boolean)Cancel = TrueEnd Sub