PDA

View Full Version : سوال: microsoft report viewer



Engineer-m
سه شنبه 13 خرداد 1393, 20:07 عصر
با سلام
می خواهم اطلاعات حاصل از دستور زیر علاوه بر دیتاگرایدویو در microsoft repoer viewer نمایش و بعد چاپ شود لطفا راهنمایی نمایید .
متشکرم
search_driver = GetData("MA_name,MA_family,MA_Mcode,MA_Maddress,MA_address, MA_Dcode From Mamoriat WHERE MA_Mcode = '" & MO_code.Text & "' AND MA_Dcode='" & Driver_code.Text & "' ")
DataGridView_FSD.DataSource = search_driver

barnamenevisforme
چهارشنبه 14 خرداد 1393, 10:22 صبح
سلام
اول یه کنترل printdocument به فرمت اضافه کن
بعد یه دکمه مثلا به نام button2،بعد توی رخدادهای متناظر کدهای زیر رو بذار
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))
e.Graphics.DrawImage(bm, 0, 0)
End Sub