09-01-20, 09:51 PM
السلام عليكم ورحمة الله وبركاته
اخواني ماهو الكود المستخدم للطباعة مباشرة من الكريستال ريبورت حاولت بأكثر من طريقة ولكنها معقدة ولم تأتي بالفائدة علماً أني استخدمت الكود التالي ولكنه لم ينجح
r11.PrintToPrinter(1, True, 0, 0)
\HP LaserJet 200 color M251
هذا كود الذي استخدمه في الكريستال رييبورت وهو ناجح ولكني اريد الطباعة مباشرة من Button
Dim dt As New DataTable
dt = DataGridView1.DataSource
Dim cr11 As New CrystalReport1
cr11.SetDataSource(dt)
Dim r11 As New Form2
r11.CrystalReportViewer1.ReportSource = cr11
r11.ShowDialog
دمتم بود