前言
一、 下载报表编辑器
注意：我特意把这一步拿来做为一个过程来讲，主要是因为目前最新的6.0版本好像有些兼容问题。 在用vb交互的过程中可能会出现 “ 数据无法解析 ”报错。我因为这个问题耽搁了好久。 最后才明白是版本问题。
二、自行绘制报表
1.插入控件
（BeginDate） 变量—— parameter参数
文字常量—— 静态框
当前时间——系统变量框
2.更改控件属性
三、代码设计
Private Sub Form_Load()
Dim strsql As String,strMsg As String
strsql = "select * from checkday_info where date='" & Format(Date,"yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport '实例化模版
Report.LoadFromFile (App.Path & "\checkday.grf") '加载模版
Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
Report.DetailGrid.Recordset.Querysql = "select top 1 * from checkday_Info order by date desc" '通过SELECT查询创建记录集
Report.ParameterByName("now").AsString = Date
Report.ParameterByName("username").AsString = UserName '给报表中元素赋值
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start '开始打印
End Sub