02-02-25, 01:58 AM
السلام والرحمه عليكم من الله
احبتى فى الله استعمل فى التقارير الكريستال ريبورت فاريد ان اعمل export لل pdf
فهل من طريقه لعرض التقريرقبل الطباعه بال pdf
02-02-25, 01:58 AM
02-02-25, 02:03 PM
كود :
''معاينة قبل الطباعة
' 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()
''انهاء الطباعة مباشرة02-02-25, 06:24 PM
بارك الله فيك اخى h2551996 ولكن قبل انهاء المعاينه اريد تصدير التقرير الى تقرير pdf وحفظه على الجهاز
02-02-25, 11:04 PM
أنا وضعت بهذا الموضوع ملف به تصدير التقرير إلى بي دي آف عسى أن سفيد إن شاء الله