كيفية الطباعة مياشرة بالكريستال ريبورت 10

اخي الكريم أمل ان يكون هذا ما تبحث عنه

CrystalReport1.PrintOut False, 1

اين ا

اخي العزيز هذا هو الكود الذي كتبة في الفورمة اللي موجود عليها ادة الكريستال فيور

Call Form_Resize

Dim ReportFile As String

ReportFile = App.Path & "\Reports\Doctors_All.rpt"

Set m_report = m_application.OpenReport(ReportFile)

CReportViewer1.ReportSource = m_report

CReportViewer1.Zoom 1

CReportViewer1.ViewReport

Screen.MousePointer = vbDefault

وهذ الكود المكتوب تحت مفتاح طباعة

Screen.MousePointer = vbHourglass

PrintDoctorsAllShwo.Show

اين اضع كودك انت من فضلك حدد لي المكان بالظبط لأني جربتها وظهر لية خطا

إليك هذا الكود واتمنى ان يكون ما تبحث عنه

Call Form_Resize

Dim ReportFile As String

ReportFile = App.Path & "\Reports\Doctors_All.rpt"

Set m_report = m_application.OpenReport(ReportFile)

CReportViewer1.ReportSource = m_report

تحت زر الطباعة تكتب هذا

CReportViewer1.PrintReport

اخي الفاضل انا جربيت هذا الكود وظهر لي هذا الخطا والخطا بيقف علي

PrintDoctorsAllShwo.CReportViewer1.PrintReport