水晶报表9，我已做出了报表，怎么不给我打印，我的打印机的测试页能打！急急急急！

Question

Set MyCmdStr.ActiveConnection = Conn1
    MyCmdStr.CommandText = "Select * from WeightTab where 班号 = " & "'" & Trim(Combo1.Text) & "'" & " and 机台号 = " & "'" & Trim(Combo2.Text) & "'" & " and 保存日期 = " & "'" & Trim(DTPicker1.Value) & "'"
    
   ' Debug.Print MyCmdStr.CommandText
    Set MyRecordSet = New ADODB.Recordset
    MyRecordSet.CursorLocation = adUseClient
    MyRecordSet.CursorType = adOpenKeyset
    MyRecordSet.Open MyCmdStr, , adOpenStatic, adLockBatchOptimistic
    m_Report.Database.SetDataSource MyRecordSet
    m_Report.SQLQueryString = "Select * from WeightTab where 班号 = " & "'" & Trim(Combo1.Text) & "'" & " and 机台号 = " & "'" & Trim(Combo2.Text) & "'" & "保存日期 = " & "'" & Trim(DTPicker1.Value) & "'"
   Screen.MousePointer = vbHourglass
    FrmWeigth.CRViewer1.ReportSource = m_Report
    FrmWeigth.CRViewer1.ViewReport    
    Screen.MousePointer = vbDefault
    FrmWeigth.Show
    MyRecordSet.Close

Answer 1

晕，看8懂你的代码你参考这个吧:http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195585不给你打印是那不给打？？

Answer 2

我点了打印按钮，打印机没反应！怎么回事呀！ 以下是代码！
    MyCmdStr.CommandText = "Select * from MyTab"    
    Set MyRecordSet = New ADODB.Recordset
    MyRecordSet.CursorLocation = adUseClient
    MyRecordSet.CursorType = adOpenKeyset
    MyRecordSet.Open MyCmdStr, , adOpenStatic, adLockBatchOptimistic
    m_Report.Database.SetDataSource MyRecordSet
    m_Report.SQLQueryString = "Select * from MyTab"
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = m_Report
    CRViewer1.ViewReport    
    Screen.MousePointer = vbDefault        

Answer 3

Public m_Report As New CrystalReport1