[abu.hanen4u]

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

كل عام أنتم بخير

السؤال هو :- 
هل يمكن بمجرد الضغط علي زر الطباعة الذي انشئته علي الفورم يتم الطباعة بدون فتح مستعرض الكريستال
شكراً جزيلا للجميع وللقائمين علي هذا المنتدي الرائع

[baha]

وعليكم السلام ورحمة الله وبركاته
كل عام وجميع الأمة الاسلامية بخير
ضع هذا الكود في حدث click لل button الخاص بالطباعة

كود :

Form1.CrystalReportViewer1.PrintReport()

قم بتغيير اسم الفورم واسم الكريستال ريبورت فيوار


                 تمنياتي لك وللجميع التوفيق

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

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

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

كمثال ..

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

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

كود :

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


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

تحياتي

[abu.hanen4u]

بارك الله فيكم وجعله في ميزان حسناتكم 
وجاري التجربة

[sami4]

(27-05-19, 11:44 PM)abu.hanen4u كتب :

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

كل عام أنتم بخير

السؤال هو :- 
هل يمكن بمجرد الضغط علي زر الطباعة الذي انشئته علي الفورم يتم الطباعة بدون فتح مستعرض الكريستال
شكراً جزيلا للجميع وللقائمين علي هذا المنتدي الرائع

طلبك موجود في المشاركه رقم 2 من الموضوع التالي
http://vb4arb.com/vb/showthread.php?tid=...#pid141502