Dim WithEvents Report As grproLibCtl.GridppReport
Private Sub Form_Load()
    Dim txtsql As String
    Dim msgtext As String
    txtsql = "select * from CheckDay_Info where Date ='" & Format(Date,"yyyy-mm-dd") & "'"
    
    Set Report = New grproLibCtl.GridppReport                       '创建报表对象

    Report.LoadFromFile (App.Path & "\机房收入日汇总表.grf")         '路径，加载报表模板文件
    
    Report.DetailGrid.Recordset.ConnectionString = ConnectString()  '连接数据源
    Report.DetailGrid.Recordset.Querysql = txtsql                   '通过select查询创建记录集
    
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start                                          '开始打印
End Sub

Private Sub cmdPrint_Click()    '打印
    Report.[Print] (True)       '方法名与vb的内部定义有冲突，所以要用中括号
End Sub

Private Sub cmdPreview_Click()  '打印预览
    Report.PrintPreview (True)
End Sub

Private Sub cmdRefresh_Click()  '刷新
    GRDisplayViewer1.Refresh
End Sub