import Infragistics.Windows
import Infragistics.Windows.DataPresenter
import Infragistics.Windows.DataPresenter.WordWriter
import System.Windows.Media
Me.xamDataGrid.FieldSettings = New Windows.DataPresenter.FieldSettings() _
With { _
Key .AllowSummaries = True, _
Key .SummaryUIType = SummaryUIType.MultiSelect, _
Key .SummaryDisplayArea = SummaryDisplayAreas.BottomFixed _
}
Dim wordFontSettings As New WordFontSettings() With { _
Key .ForeColor = Colors.Blue, _
Key .Bold = True, _
Key .Size = New DeviceUnitLength(11, DeviceUnitType.Point) _
}
Dim wordTableCellSettings As New WordTableCellSettings() With { _
Key .BackColor = Colors.Gray, _
Key .FontSettings = wordFontSettings _
}
DataPresenterWordWriter.SetCellSettingsForDataRecord( _
Me.xamDataGrid.FieldSettings, wordTableCellSettings)