Private Sub ExportReport()
Dim reportObj As Report = New Report()
Dim section As EmbeddedVisualReportSection = New EmbeddedVisualReportSection(XamDataGrid1)
reportObj.Sections.Add(section)
' Call export method and put to it file to export without SaveFileDialog
reportObj.Export(OutputFormat.XPS, "C:\\export.xps", False)
End Sub