Replied 4 August 2017, 3:20 pm EST
In order to have the correct summary values to show up for the calculated fields, please implement the following steps.
1) Add a Field to the report with code as
Private Sub ActiveReport_DataInitialize()
2) In the fetch data event use code as following to generate values of the calculated field
Private Sub ActiveReport_FetchData(EOF As Boolean)
Me.Fields("Calc").Value = Me.Fields("PerCopyPrice") * Me.Fields("Sales").Value
3) Set the datafield property of the Field displaying the calculated field to the name of your calculated field eg :-Calc
Please find the attached sample in this regard.