[خالد كامل1]

السلام والرحمه عليكم من الله

احبتى فى الله استعمل فى التقارير الكريستال ريبورت فاريد ان اعمل export لل pdf

فهل من طريقه لعرض التقريرقبل الطباعه بال pdf

[h2551996]

كود :

''معاينة قبل الطباعة
       '  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()
       ''انهاء الطباعة مباشرة

من اكواد الاستاذ صبحي الجزازي ( جزاه الله خيرا )

[خالد كامل1]

بارك الله فيك اخى h2551996 ولكن قبل انهاء المعاينه اريد تصدير التقرير الى تقرير pdf وحفظه على الجهاز

[عبد العزيز البسكري]

أنا وضعت بهذا الموضوع ملف به تصدير التقرير إلى بي دي آف عسى أن سفيد إن شاء الله

http://vb4arb.com/vb/showthread.php?tid=33434