[SOLVED] Printing FooterRows

Private Sub GridSetup()
    With rpcGrid
        ' Add your column structure and other settings here...

        ' Used to format the Data in rows, i.e. Right align the text Totals: in the screenshot in my original post
        .SetCustomDraw xtpCustomBeforeDrawRow

        ' Show Footer Row...
        .ShowFooterRows = True

        With .FooterRecords.Add
            .AddItem vbNullString
            .AddItem "Totals:"
            .AddItem "0"
            .AddItem "0"
            .AddItem "0"
            .AddItem "0"
        End With

        .Populate
    End With
End Sub

Private Sub rpcGrid_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)
    If Trim$(Item.Record(1).Value) = "Totals:" Then
        Row.Record(1).Alignment = xtpAlignmentRight
        Metrics.BackColor = &HE7FFE5
    End If
End Sub

Private Sub CalculateFooterRow()
    ' Reset the Footer Row to be zero
    With rpcGrid
        .FooterRecords.Record(0).Item(2).Value = "0"
        .FooterRecords.Record(0).Item(3).Value = "0"
        .FooterRecords.Record(0).Item(4).Value = "0"
        .FooterRecords.Record(0).Item(5).Value = "0"
    
        Dim Record As ReportRecord
        For i = 0 To .Records.Count - 1
            Set Record = .Records.Record(i)
            .FooterRecords.Record(0).Item(2).Value = CDbl(.FooterRecords.Record(0).Item(2).Value) + CDbl(Record.Item(2).Value)
            .FooterRecords.Record(0).Item(3).Value = CDbl(.FooterRecords.Record(0).Item(3).Value) + CDbl(Record.Item(3).Value)
            .FooterRecords.Record(0).Item(4).Value = CDbl(.FooterRecords.Record(0).Item(4).Value) + CDbl(Record.Item(4).Value)
            .FooterRecords.Record(0).Item(5).Value = CDbl(.FooterRecords.Record(0).Item(5).Value) + CDbl(Record.Item(5).Value)
        Next
    
        .FooterRecords.Record(0).Item(3).Value = Format$(.FooterRecords.Record(0).Item(3).Value, "########0.000")
        .FooterRecords.Record(0).Item(4).Value = Format$(.FooterRecords.Record(0).Item(4).Value, "########0.000")
        .FooterRecords.Record(0).Item(5).Value = Format$(.FooterRecords.Record(0).Item(5).Value, "########0.000")
    End With
End Sub