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

السلام عليكم و رحمة الله و بركاته

إضافة لما قدّمه الأخ الكريم بارك الله فيه و له ..

كمثال ..

إخترْ سطر واحد من السطرين الأخيريْن .. طباعة بعرض التقرير .. أو طباعة مباشرة بدون عرض التقرير

مع الإنتباه أنّ الرقم 1 .. الأوّل بالسطر .. يرمز إلى عدد الصفحات التي تريد طباعتها

كود :

  Dim rpt1 As New CrystalReport1
       Dim Frm As New Form2
       Frm.CrystalReportViewer1.ReportSource = rpt1


       'Frm.ShowDialog()
       'rpt1.PrintToPrinter(1, True, 0, 0)

تحياتي