سئوالی فوری در مورد نحوه چاپ

[mgh64120]

با عرض سلام و خسته نباشید خدمت شما دوستان و سروران عزیز !
میخواستم بدونم که آیا با نرم افزار کریستال ریپورت 10 میشه بدون نمایش فرم چاپی اطلاعات را به چاپگر فرستاد یا نه ! این مورد را امتحان کردم جواب نداد ؟

frmprint.CrystalReport.ReportSource = crRept
frmprint.CrystalReport.ViewReport
frmprint.CrystalReport.Refresh
frmprint.CrystalReport.PrintReport

ممنون میشم اگر در این باره اطلاعاتی دارید کمکم کنید.
با تشکر ! (کمی فوری)
:خجالت:

[sm]

شما اگه یه متغیر از گزارشتون تعریف کنین فکر کنم بشه چاپ کرد. با این دستور :


Report.PrintToPrinter(1, False, 1, 2)


موفق باشید

[mgh64120]

میشه بیشتر توضیح بدین !
متوجه نشدم

[nokhodsiah2001]

سلام
من هم همین مشکل رو دارم
اصلاً اگر بخوایم یک فرم طراحی کنیم و اونو پرینت کنیم باید چی کار کنیم

[sm]

چند راه داره... یه راهش همینه که در بالا توضیح دادم
شما وقتی گزارشتون رو طراحی کردین و خواشتین توی فرم اونو نمایش بدین بجای اینکه به Report Source مربوط به Crystalreport Viewer نام گزارش رو رد کنین، قبل از اون یه متغیر از گزارشتون New کنین.
از این به بعد میتونین به تمام Objectهاش دسترسی داشته باشین.


Dim RPT As New ReportName

با دستوری که در بالا دادم میتونین براحتی چاپ رو فراخوانی کنین.

موفق باشید

[amirzazadeh]

سلام
من هم همین مشکل رو دارم
اصلاً اگر بخوایم یک فرم طراحی کنیم و اونو پرینت کنیم باید چی کار کنیم
اول باید یک ارتباط با کریستال ریپورت برقرار کنی بعد فیلد های مورد نظر رو انتخاب کنی مثلا با یک کوئری آخر سر فرمان پرینت رو صادر می کنیم مثال :کد زیر رو داخل یک butoon کپی کن

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\am\Desktop\db11.mdb")
Dim dap As New OleDbDataAdapter("SELECT * FROM Table1 ", con)
Dim dst As New DataSet
Dim opr As New CrystalReport1
con.Open()
dap.Fill(dst, "table1")
con.Close()
opr.SetDataSource(dst)
opr.SetParameterValue("shomare-faktor", Shomare_faktorTextBox.Text)
Form2.CrystalReportViewer1.ReportSource = opr
opr.PrintToPrinter(1, True, 1, 1)
End Sub