View Full Version : ارسال مستقیم اطلاعات چاپی به پرینتر بدون پیش نمایش در کریستال ریپورت 10
mgh64120
شنبه 24 آذر 1386, 14:19 عصر
با عرض سلام و خسته نباشید خدمت شما عزیزان
میخواستم بدونم که آیا میشه در کریستال ریپورت 10 با استفاده از نرم افزار برنامه نویسی ویژال بیسیک 6 ،اطلاعات مورد نظر برای چاپ رو مستقیم به پرینتر بفرستم (بدون نمایش قبل از چاپ)
من کد VB6 خودم مبزارم اگه ممکنه اون رو برام کامل کنید :
()Private Sub cmdprint_Click
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Set crRept = crApp.OpenReport(App.Path & "\RptDaryaft.Rpt") 'Report File
(crRept.RecordSelectionFormula = "{Qdaryaft.date_sabt} = " & Val(dateprint
frmprint.CrystalReport.ReportSource = crept
این قسمت برای نمایش اطلاعات استفاده میشه ولی من میخوام مستقیم به پرینتر فرستاده بشه ؟
frmprint.CrystalReport.ViewReport
frmprint.CrystalReport.Refresh
frmprint.Show vbModal
Set crApp = Nothing
Set crRept = Nothing
sm
یک شنبه 25 آذر 1386, 08:50 صبح
چه اصراری هست که حتما مستقیم به چاپ بفرستین ؟
میتونین از ابزارهای دیگه استفاده کنین.
موفق باشید
mgh64120
یک شنبه 25 آذر 1386, 12:06 عصر
چه اصراری هست که حتما مستقیم به چاپ بفرستین ؟
میتونین از ابزارهای دیگه استفاده کنین.
موفق باشید
آخه خیلی لازمه اگه ممکنه راهنماییم کنید!
sm
یک شنبه 25 آذر 1386, 12:59 عصر
عجب جوابی !!!
توی پیغام خصوصیتون جوابش رو دادم.
اگه کارتون رو راه انداخت اینجا هم بزارین دوستان استفاده کنن.
موفق باشید
amirzazadeh
یک شنبه 19 اسفند 1386, 09:24 صبح
با دستور print to printer می تونین این کارو انجام بدین.فقط به اول این دستور نام ریپورت رو اضافه کنین
مثال
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
pourhabibi
سه شنبه 21 اسفند 1386, 12:28 عصر
من از این دستور استفاده می کنم اما همه متن توی صفحه جا به جا می شه. متنها از آخر به اول نوشته میشن ( با وجود اینکه Right to left اند) و حروف یک کلمه تکه تکه میان. چی کار کنم؟:)
amirzazadeh
سه شنبه 21 اسفند 1386, 13:46 عصر
من از این دستور استفاده می کنم اما همه متن توی صفحه جا به جا می شه. متنها از آخر به اول نوشته میشن ( با وجود اینکه Right to left اند) و حروف یک کلمه تکه تکه میان. چی کار کنم؟:)
میتونی پروژه رو برام upload کنی البته به همراه databse
محمد رضاپور
سه شنبه 21 اسفند 1386, 18:18 عصر
با سلام
تا اونجائی که من اطلاع دارم و از این حالت در برنامه های خودم استفاده کردم، فقط کافیه که بجای frmprint.CrystalReport.ViewReport از frmprint.CrystalReport.PrintReport استفاده کنید تا بجای اینکه گزارش به کاربر نشون داده بشه، مستقیما به چاپگر ارسال بشه. مثل فاکتورهای فروشی که نیازی به مشاهده خود گزارش نیست.
موفق باشید.
pourhabibi
چهارشنبه 22 اسفند 1386, 07:14 صبح
من نرم افزارم تحت وبه، نمی تونم ازین دستوری که شما می گی استفاده کنم
CrystalReportSource1.ReportDocument.PrintToPrinter (1, False, 1, 1)
از این دستور استفاده می کنم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.