Private Sub CreateReport()
' 1. Create Report object
Dim reportObj As New Report()
' 2. Create EmbeddedVisualReportSection section.
' Put the grid you want to print as a parameter of section's constructor
Dim gridSection As New EmbeddedVisualReportSection(XamDataGrid1)
Dim anothergridSection As New EmbeddedVisualReportSection(XamDataGrid2)
' 3. Add created sections to report's section collection
reportObj.Sections.Add(gridSection)
reportObj.Sections.Add(anothergridSection)
' 4. Call print method
reportObj.Print(False, True)
End Sub