15-11-24, 10:15 PM
16-11-24, 01:19 PM
صباح الخير
17-11-24, 12:20 AM
كود :
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")18-11-24, 05:34 PM
الف شكر اخي
ممكن توضخ اين اضع الاكواد
ممكن توضخ اين اضع الاكواد
24-11-24, 05:56 PM
مساء الخير