Private Sub SetReportSettings()
Dim reportObj As New Report()
' set print order. it can be first left than down (horizontal) or first(down than left(vertical)
reportObj.ReportSettings.PagePrintOrder = PagePrintOrder.Horizontal
' set scale mode
reportObj.ReportSettings.HorizontalPaginationMode = HorizontalPaginationMode.Mosaic
Dim section As New EmbeddedVisualReportSection(XamDataGrid1)
reportObj.Sections.Add(section)
progressInfo.Report = reportObj
reportObj.Print(False)
End Sub