上面说到了制作报表，相信大家都能制作了吧！下面就说几句报表和vb的交互。其实就是几句话的事情。
@H_403_11@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
主要部分搬上来了，剩下的就是细枝末节了。
打印：