[salamandal]

كود :

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
'--------------------------------------

استدعاء الدالة بالكود التالي

كود :

ExportToPDF(ReportViewer1, "C:\PDF\" & "Report.pdf")