طباعه التقرير فورا عند استدعائه

استخدمي الإجراء PrintToPrinter في التقرير

لنفرض ان اسم التقرير x سيكون الكود

x.PrintToPrinter

الاخ المبدع حمزه شكرا لك

بس للاسف لم ينجح معي المطلوب

وهذا هو الكود ككل

		Dim x As New Form
		Dim y As New CrystalDecisions.Windows.Forms.CrystalReportViewer
		Dim rpt As New Crt1
		rpt.SummaryInfo.ReportComments = TextBox1.Text
		x.Controls.Add(y)
		x.WindowState = FormWindowState.Maximized
		y.Dock = DockStyle.Fill
		y.DisplayGroupTree = False
		y.ReportSource = rpt
		rpt.SetDataSource(rptDS)
		x.ShowDialog()

ولقد جربت الكود الدي دكرته وكتبته السطر قبل الاخير

وجرب التالى

x.PrintToPrinter

ولكن للاسف لم يضبط معي وايضا قمت بتجربته التالى

crp1.PrintToPrinter

وايضا لم ينجح معي الحل

ارجو المساعده لمن لديه خلفيه عن الموضوع

ما كتبته صحيح,

لكن الخطأ يكمن في أن المتغير x هو من نوع Form وليس التقرير الذي تريدين طباعته والذي إسمه Crt1

لذلك يجب استخدام هذا الكود

rpt.PrintToPrinter ( 1, False ,1,1)

لأن المتغير rpt هو التقرير

أي سؤال بالخدمة

شكرا اخوي حمزه على ها الشرح

بس انا لو ما اعرف عدد الصفحات ازي امرر رقم اخر صفحه كما في المثال الذي طرحته وهو

rpt.PrintToPrinter ( 1, False ,1,1)