Private Sub MyGridExporter_SummaryRowExporting(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.SummaryRowExportingEventArgs) Handles MyGridExporter.SummaryRowExporting
If e.SummaryLevel Mod 2 = 0 Then
e.Summaries(0).Appearance.BackColor = Color.LightCoral
End If
End Sub
Private Sub MyGridExporter_SummaryRowExported(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.SummaryRowExportedEventArgs) Handles MyGridExporter.SummaryRowExported
If e.SummaryLevel Mod 2 = 0 Then
e.CurrentWorksheet.Rows(e.CurrentRowIndex - 1).CellFormat.Font.Bold = ExcelDefaultableBoolean.True
End If
End Sub