Private Sub cmdPrint_Click()
Report.[Print] True '打印
End Sub
②打印预览
Private Sub cmdPreview_Click()
Report.PrintPreview (True) '打印预览
End Sub
③刷新
Private Sub cmdRefresh_Click()
Report.DetailGrid.Recordset.QuerySQL = "select * from checkWeek_Info where date between '" & begindate.Value & "' and '" & enddate.Value & "' " '通过SELECT查询创建记录集
GRDisplayViewer1.Refresh '刷新
End Sub
④将Grid++Report报表编辑器的表格实例化到VB中,并显示出来。
'Dim WithEvents Report As gregn6LibCtl.GridppReport '带withevents的定义可引出report事件
Dim Report As gregn6LibCtl.GridppReport '未带withevents的定义仅定义,未引出report的其他事件
Private Sub Form_Load()
Set Report = New gregn6LibCtl.GridppReport '实例化模版
Report.LoadFromFile (App.Path & "\checkweek.grf") '加载模版
Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
Report.DetailGrid.Recordset.QuerySQL = "select * from checkWeek_Info " '通过SELECT查询创建记录集
Report.ParameterByName("username").Value = frmlogin.txtuserid '向gridreport内传参数
Report.ParameterByName("begindate").Value = begindate.Value
Report.ParameterByName("enddate").Value = enddate.Value
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start '开始打印
End Sub