Access免费的完美报表的讲述帖（正式开讲）

sql999

正为报表中自定义打印设置不便犯愁呢，就碰到真主的现场直播

大愿望

感谢楼主分享心得，友情再顶一下

admin

坐等更新！！

t小宝

支持真主！

真主

各位，因为今天有客户来看厂，更新要等等了，{:soso_e128:}

snddzxb

连接数据的时候请讲解一上后台数据为SQL的连接方式，谢谢！

轻风

不错。坐等继续。

xuwenning

收藏了，谢谢分享

真主

上次讲完了报表的设计，今天我们开始讲如何让报表能正常打印，大家都知道Access的VBA只是VB的一部份，很多VB支持的插件，access都无法支持，所以我们只好曲线救国{:soso_e120:}
1、打开VB6






2、在左单部件栏上点右键，选择“部件（O）...”


3、在部件窗体上点“浏览”后跳出添加Activex控件的窗体，文件类型选择所有文件后在grid++repert安装目录下选择“gregn50.dll”文件，并点打开

4、这里在部件窗体中出现了该插件


5、选择“grprintviewer”,在“form1”窗体上画出来


6、双击“Form1”进入“代码窗口”


7、写入以下代码

1.     '声明
   
2.      Dim WithEvents Report As grproLibCtl.GridppReport    '创建报表对象
   
3.     '在Private Sub Form_Load()写入以下内容
   
4. 
   
5.     Set Report = New grproLibCtl.GridppReport
   
6. 
   
7.     '载入报表模板文件，必须保证 Grid++Report 的安装目录在‘C:\Grid++Report 4.5’下，
   
8.     Report.LoadFromFile ("C:\Grid++Report 5.0\Samples\Reports\1a.简单表格.grf")
   
9.     '设定明细网格的数据源
   
10.     Report.DetailGrid.Recordset.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Grid++Report 5.0\Samples\Data\Northwind.mdb"
    
11.     '设定参数集合的数据源
    
12.     Report.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Grid++Report 5.0\Samples\Data\Northwind.mdb"   
    
13. 
    
14.     '设置报表查询显示器控件的关联报表对象
    
15.     GRPrintViewer1.Report = Report
    
16. 
    
17.     '启动报表运行
    
18.     GRPrintViewer1.Start
    

复制代码

现在你基本的代码已写完成，下面进行美化和动态调用的工作

轻风

还要VB真麻烦