مشکل پرینت با crviewer

[مرتضی حمزه ئی]

با سلام خدمت اساتید
من به یک مشکل تازه برخوردم که تا حالا فکر میکردم اصلامعنی نداره من از یک crviewer توی برنامه استفاده کردم با این تفاوت که توی یک فرم طبق شکل untitled1.bmp پیوست مستقیم گزارش نمایش داده میشه ودگمه پرینت گزارش را پرینت میگیره ولی طبق شکل untitled2.bmp من روی crviewer یکسری فیلترهای کاربر رامیگیرم وبعد براساس اون گزارش نمایش داده میشه ولی جالبه که دگمه پرینت که فشار میدم گزارش روی پرینتر ارسال نمیشه حالا چه اتفاقی پشت می افته که این فیلتر روی crviewer باعث میشه که دگمه پرینت عمل نکنه جالبه که دگمه پرینت روی صفحه نمایش گزارش فعاله ولی پرینت نمیگیره کد واسه هردوشکل یکسانه فقط توی شکل 2 یک فیلتر روش اقدام میشه ولی اولی این فیلتررانداره کدش هم واسه هردو بصورت زیر است حالا خواهش میکنم دوستان کمک کنند
Set tabs = Report.Database.Tables
Set tabss = Report.Database.Tables.Item(1)
tabss.SetLogOnInfo App.Path + "\kalibr1.mdb"
tblname = "vwkol"
Set rs2 = New ADODB.Recordset
rs2.CursorLocation = adUseClient
str1="select '',codesar,descfsar,descesar,codeab,namefabhino,re sult from vwkol where datekalibr>='" & Mskdate_est.Text & "' and datekalibr<='" & MaskEdBox1.Text & "' and nosection=" & codeb1 & " and ltrim(dateneed)<>'' order by codeab+datekalibr"

rs2.Open str1, clsDb.ConnectionStr, 3, 3
If rs2.RecordCount <> 0 Then
Report.DiscardSavedData
Report.Database.SetDataSource rs2
Else
MsgBox "ÇØáÇÚÇÊí íÇÝÊ äÔÏ"
Exit Sub
End If
Report.Text7.SetText Mskdate_est
Report.Text11.SetText MaskEdBox1
Report.Text9.SetText namesherkat1
Report.Text16.SetText Combo1.Text
xpFrame1.Visible = False

CRViewer1.EnablePrintButton = True

CRViewer1.Zoom (100)
Screen.MousePointer = vbHourglass
'CRViewer1.PrintReport
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault