Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
Me.页合计 = 0
End Sub

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Me.页合计 = Nz(Me.页合计, 0) + Nz(Me.销售金额, 0)
End Sub