Dim rptDocument As New ReportDocument
            Dim rptform As New frmViewReport
            Try
                rptDocument.FileName = strReportPath
                rptDocument.DataDefinition.GroupSelectionFormula = "{Account_transactions_Details.Header_ID} =" & IdTBO.Text
                rptDocument.Load(strReportPath)
                rptform.rptviewer.ReportSource = rptDocument
                rptform.ShowDialog()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            Dim CrExportOptions As ExportOptions
            Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
            CrDiskFileDestinationOptions.DiskFileName = "c:\test.pdf"
            CrFormatTypeOptions.FirstPageNumber = 1 ' Start Page in the Report
            CrFormatTypeOptions.LastPageNumber = 3 ' End Page in the Report
            CrFormatTypeOptions.UsePageRange = True
            CrExportOptions = rptDocument.ExportOptions
            With CrExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .DestinationOptions = CrDiskFileDestinationOptions
                .FormatOptions = CrFormatTypeOptions
            End With
            Try
                rptDocument.Export()
            Catch err As Exception
                MessageBox.Show(err.ToString())
            End Try