Imports Infragistics.Windows.Reporting
 
Private  Sub CreateReport()
    ' 1. Create Report object
    Dim reportObj As Report =  New Report() 
 
    ' 2. Create EmbeddedVisualReportSection section. 
    ' Put the grid you want to print as a parameter of section's constructor
    Dim section As EmbeddedVisualReportSection =  New EmbeddedVisualReportSection(XamDataGrid1) 
 
    ' 3. Add created section to report's section collection
    reportObj.Sections.Add(section)
 
    ' Optional. If you have progress indicator set its Report property to created report
    progressInfo.Report = reportObj
 
    ' 4. Call print method
    reportObj.Print(True, False)
End Sub