+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقه استخرج التقارير بالpdf (/showthread.php?tid=51326)
طريقه استخرج التقارير بالpdf - خالد كامل1 - 02-02-25
السلام والرحمه عليكم من الله
احبتى فى الله استعمل فى التقارير الكريستال ريبورت فاريد ان اعمل export لل pdf
فهل من طريقه لعرض التقريرقبل الطباعه بال pdf
RE: طريقه استخرج التقارير بالpdf - h2551996 - 02-02-25
كود :
''معاينة قبل الطباعة
' Frm_Print.Show()
' Frm_Print.WindowState = FormWindowState.Maximized
' Dim rpt As New Quick_Report
' rpt.SetDataSource(ds)
' Frm_Print.CrystalReportViewer1.ReportSource = rpt
' Frm_Print.CrystalReportViewer1.Refresh()
' con.Close()
''انهاء معاينة قبل الطباعة
''الطباعة مباشر
Dim rpt As New Quick_Report
rpt.SetDataSource(ds)
Frm_Print.CrystalReportViewer1.ReportSource = rpt
Dim printDocument As New System.Drawing.Printing.PrintDocument()
rpt.PrintOptions.PrinterName = My.Settings.PrinterName
rpt.PrintToPrinter(1, False, 0, 0)
con.Close()
''انهاء الطباعة مباشرةRE: طريقه استخرج التقارير بالpdf - خالد كامل1 - 02-02-25
بارك الله فيك اخى h2551996 ولكن قبل انهاء المعاينه اريد تصدير التقرير الى تقرير pdf وحفظه على الجهاز
RE: طريقه استخرج التقارير بالpdf - عبد العزيز البسكري - 02-02-25
أنا وضعت بهذا الموضوع ملف به تصدير التقرير إلى بي دي آف عسى أن سفيد إن شاء الله