[سؤال] تصدير تقرير بال ActiveReport الى PDF

كود :
Private Sub ExportToPDF(reportViewer As ReportViewer, outputPath As String)

        ' تحديد نوع التصدير وتكوين الخيارات

        Dim deviceInfo As String = "<DeviceInfo><OutputFormat>PDF</OutputFormat></DeviceInfo>"



        ' تحديد معلمات التقرير

        Dim warnings As Warning() = Nothing

        Dim streamIds As String() = Nothing

        Dim mimeType As String = ""

        Dim encoding As String = ""

        Dim fileNameExtension As String = ""



        ' تصدير التقرير إلى مصفوفة بتدفق البيانات

        Dim bytes As Byte() = reportViewer.LocalReport.Render("PDF", deviceInfo, mimeType, encoding, fileNameExtension, streamIds, warnings)



        ' حفظ بتدفق البيانات إلى ملف PDF

        Using fs As New FileStream(outputPath, FileMode.Create)

            fs.Write(bytes, 0, bytes.Length)

        End Using

    End Sub 

'--------------------------------------