Public Sub ExportToPDF(ByVal _PathFilePDF As String)
        Dim Report As New ReportDocument
        Report.Load(PathReport)
        Report.RecordSelectionFormula = RecordSelectionFormula
        Report.Refresh()
        Report.ExportToDisk(ExportFormatType.PortableDocFormat, _PathFilePDF)
    End Sub