[الدريساوي]

جرب الكود في طباعة الكريستال
وضع Button1 +ProgressBar1
Try

           'كود الطباعة


           Application.DoEvents()

           ProgressBar1.Visible = True

           Dim rpt As New CrystalReport1 : ProgressBar1.Value = 10


           rpt.SetDataSource(DataSet1) : ProgressBar1.Value = 40


           Form1.CrystalReportViewer1.ReportSource = rpt : ProgressBar1.Value = 60

           'كلمة سر قاعدة البيانات
           Form1CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "12345" : ProgressBar1.Value = 100

           ProgressBar1.Visible = False


           ''اختيار طابعة اخرى للطباعة غير الطابعة الافتراضية
           'rpt.PrintOptions.PrinterName = "اسم الطابعة الخاصة الاخرى"


           'معاينة التقرير
           Form1.ShowDialog()


           ''كود طباعة مع ظهور نافذة الطباعة
           'Form1.CrystalReportViewer1.PrintReport()


           ''كود طباعة مباشرة مع تحديد عد النسخ
           'rpt.PrintToPrinter(1, True, 0, 0)


       Catch ex As Exception

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


       End Try