vb报表（二）——打印报表

最新推荐文章于 2020-12-03 15:00:51 发布

最新推荐文章于 2020-12-03 15:00:51 发布 · 428 阅读

文章标签：

#数据库

本文详细介绍了如何使用网格报表控件实现报表的加载、查询、显示和打印功能，包括与数据库的连接、SQL查询语句的应用以及报表的预览与实际打印过程。

报表显示：

Private Sub Form_Load()
           
          Dim WithEvents report As grproLibCtl.GridppReport
          
          '实例化报表
          Set report = New grproLibCtl.GridppReport
          
          '报表建立的位置
          report.LoadFromFile (App.Path & "\CheckDay.grf")
          
          '和数据库连接
          report.DetailGrid.Recordset.ConnectionString = "FileDSN=chargeroom.dsn;uid=sa;pwd=123456" '数据源
          
          '查询表
          txtSQL = "select * from CheckDay_Info"
          
          '把记录查询出来，显示在报表里
          report.DetailGrid.Recordset.QuerySQL = txtSQL

          
          '查看报表
          GRDisplayViewer1.report = report
          GRDisplayViewer1.Start
          
End Sub

打印：