چاپ گزارش از اطلاعات گرید ویو

[ksi_xi_nt]

سلام به همه دوستان
من یه فرم دارم که اومدم با کلی فیلتر تو در تو ، اطلاعات رو استخراج و وارد گریدویو کردم ، حالا می خوام این اطلاعات رو پرینت کنم ، ممنون میشم کمک کنید.

[ksi_xi_nt]

کسی اطلاعی از این موضوع نداره؟

[behrooz69]

خو عزیز سوالتو درست مطرح کن که ما بدونیم . من واست می زارم ولی تکست باکس گذاشتم و بر اساس اون واست پرینت می گیرم .
'// chap gozaresh bar asas name moshtari dar vorod kala = filter by name moshtari \\
Dim rpt As New CReportInsert
Dim myconnection As SqlConnection
Dim mycommand As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New SardkhoneDataSet
Try
myconnection = New SqlConnection(My.Settings.conn)
mycommand.Connection = myconnection
mycommand.CommandText = "SELECT * from TblVorodKala WHERE(NameMoshtari=@NameMoshtari)"
mycommand.Parameters.Add("@NameMoshtari", SqlDbType.NVarChar, 50).Value = TxtSearchByNameMoshtari.Text

mycommand.CommandType = CommandType.Text
myda.SelectCommand = mycommand
myda.Fill(myds, "TblVorodKala")
rpt.SetDataSource(myds)
rpt.SetParameterValue("behrooz", LblTarikhJari.Text)
FrmGozareshgiriVorodKala.CrystalReportViewer1.Repo rtSource = rpt
FrmGozareshgiriVorodKala.ShowDialog()

Catch ex As Exception
MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

فکر نکنم نیاز به توضیح داشته باشه ! اگه مشکلی بود بگو تا توضیح بدم واست

[alinux031]

خو عزیز سوالتو درست مطرح کن که ما بدونیم . من واست می زارم ولی تکست باکس گذاشتم و بر اساس اون واست پرینت می گیرم .
'// chap gozaresh bar asas name moshtari dar vorod kala = filter by name moshtari \\
Dim rpt As New CReportInsert
Dim myconnection As SqlConnection
Dim mycommand As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New SardkhoneDataSet
Try
myconnection = New SqlConnection(My.Settings.conn)
mycommand.Connection = myconnection
mycommand.CommandText = "SELECT * from TblVorodKala WHERE(NameMoshtari=@NameMoshtari)"
mycommand.Parameters.Add("@NameMoshtari", SqlDbType.NVarChar, 50).Value = TxtSearchByNameMoshtari.Text

mycommand.CommandType = CommandType.Text
myda.SelectCommand = mycommand
myda.Fill(myds, "TblVorodKala")
rpt.SetDataSource(myds)
rpt.SetParameterValue("behrooz", LblTarikhJari.Text)
FrmGozareshgiriVorodKala.CrystalReportViewer1.Repo rtSource = rpt
FrmGozareshgiriVorodKala.ShowDialog()

Catch ex As Exception
MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

فکر نکنم نیاز به توضیح داشته باشه ! اگه مشکلی بود بگو تا توضیح بدم واست
tblvorodkala نام دیتا گرید است؟ چطور میشه از داده هایی که در حال حاضر در دیتا گرید است پرینت گرفت؟ برای creportinsert چه دیتابیسی را باید اکسپرت کرد؟

[ksi_xi_nt]

خو عزیز سوالتو درست مطرح کن که ما بدونیم . من واست می زارم ولی تکست باکس گذاشتم و بر اساس اون واست پرینت می گیرم .
'// chap gozaresh bar asas name moshtari dar vorod kala = filter by name moshtari \\
Dim rpt As New CReportInsert
Dim myconnection As SqlConnection
Dim mycommand As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New SardkhoneDataSet
Try
myconnection = New SqlConnection(My.Settings.conn)
mycommand.Connection = myconnection
mycommand.CommandText = "SELECT * from TblVorodKala WHERE(NameMoshtari=@NameMoshtari)"
mycommand.Parameters.Add("@NameMoshtari", SqlDbType.NVarChar, 50).Value = TxtSearchByNameMoshtari.Text

mycommand.CommandType = CommandType.Text
myda.SelectCommand = mycommand
myda.Fill(myds, "TblVorodKala")
rpt.SetDataSource(myds)
rpt.SetParameterValue("behrooz", LblTarikhJari.Text)
FrmGozareshgiriVorodKala.CrystalReportViewer1.Repo rtSource = rpt
FrmGozareshgiriVorodKala.ShowDialog()

Catch ex As Exception
MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

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

[behrooz69]

یه Button بذار و کدای بالا رو توش بنویس و اینارو هم واست توضیح میدم که بتونی بفهمی دوست من
Tblvorodkala نام تیبل ورود کالای منه تو مثال . شما یه کریستال درست کن و به تیبلت وصلش کن و تو mycommand.CommandText = "SELECT * from
Table_shoma WHERE(Name=@Name)"
بجای تیبل شما اسم تیبل خودت رو بده از دیتابیس خودت بگیره .
myda.Fill(myds, "Table_shoma") اینجا هم اسم تیبل خودتو بده .
یه فرم درست کن و یه Crystal Report viewer بذار و اونو وصلش کن به تیبل خودت که تو این کدا ازش استفاده کردی .
باقی چیزاش واضحه و جای گذاریه و تغییر نام .
Creportinsert هم اسم کریستال ریپورت منه تو ورود کالا شما می تونی عوضش کنی . مشکلی بود بازم بگو تا کمکت کنم .
این خطم پاک کن
rpt.SetParameterValue("behrooz", LblTarikhJari.Text)
چون تو برنامه من فقط کاربرد داره و تاریخ و ساعت سیستمو به شمسی تو کریستال من نشون می ده