alt+f11 在thiswokbook中添加如下代码 Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub 在sheet1中添加如下代码 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$J$19:$K$19" Then '双击J19时累计结果,打印并保存工作簿. Cancel = True Application.EnableEvents = False [j19] = [j19] + [g19] ActiveSheet.PrintOut ThisWorkbook.Save ' Application.EnableEvents = True End If End Sub