مشکل با چاپ اطلاعات

[akbarg64]

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


Private Sub print_Click()
Adodc1.Recordset.Close
Adodc1.Recordset.Open
Adodc1.Refresh
Set Report.DataSource = Adodc1
Report.Show
End Sub

[
اینم کد فیلتر سازی که استفاده میکنم

Private Sub Filter()
Dim StrSQL As String
If Text1.Text = "" Then
StrSQL = "Select * fromForosh"
Else
StrSQL = "select * from Forosh where Name like '%" & Text1.Text & "%'"

End If
Adodc1.RecordSource = StrSQL
Adodc1.Refresh
Adodc1.Recordset.Sort = "Kname"

اما موقعی که دکمه پرینت رو فشار میدم با پیغام زیر مواجه میشم .علتش چیه؟؟؟.ممنون میشم کمک کنید.


ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــ

بخشید دوستان مشکلم حل شد.این قسمت رو اشتباه نوشته بودم.
Report.Show

باید اینجوری مینوشتم

Report.Show 1