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

真主

众所周之，Access的报表功能实在不如人意，如：用户无法自定义报表、报表多格式导出功能差、无分级合并功能等等，特别是自定义纸张时，换一台打印机都要在MDB设好后转MBE
论坛上大家都在找，但真正有效对报表进行处理的真的好少
当然，本帖一定要经过我们的管理员（tmtony）点头后我才会正式开始写，因为tmtony兄也有个要卖钱的报表插件啊，我可不想与他对着干tmtony兄，如你有异议请删帖或私信给我，如无异议我明天正式开讲，谢谢！从4楼开始讲解
设计界面

打印界面

真主

轻风 发表于 2013-10-31 14:58
还要VB真麻烦

其实VB中需要写的代码也就一点点，我最初来想发布一个成品就行了，毕竟授人鱼比授人以渔要简单的多，但考虑到大家的应用，所以还是授渔吧，所以需要的朋友可以耐心看看

a30088

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

xlb004

呵呵呵呵呵呵呵呵哈哈哈

zhouyio

aaa

yanwei82123300

真主老师，能否给条炖好的鱼吃呀！即例子，谢谢

大愿望

楼主请继续，不要停

真主

上次讲了VB调用报表的基本方法，可他无法实现动态调用，接下来我们要完成几个功能：
1、控件大小与窗体一样
2、在当前目录下建一个Reports文件夹，将报表文件统一放在里面，
3、在当前目录下建一个tool文件夹，将动态调用的报表名与报表数据源路径存入在tool文件夹中的print.txt文件夹中（后续在access打印时，动态向print.txt文件中写入，从而实现动态应用）
4、在窗体上新增两个Label控件，分别为Label1与Label2，另加一个框：Shape1
VB的最终代码如下：

1. Dim WithEvents Report As grproLibCtl.GridppReport
   
2. 
   
3. Private Sub Form_Load()
   
4. 
   
5. Me.GRPrintViewer1.Width = Me.Width - Shape1.Width
   
6. Me.GRPrintViewer1.Height = Me.Height - Shape1.Height
   
7. 
   
8. Label1.Caption = ""
   
9. Va_FullName1 = App.Path & "\tools\Print.txt"
   
10. '====创建文件
    
11. If Dir(Va_FullName1, vbDirectory) = "" Then
    
12.     Set fs = CreateObject("Scripting.FileSystemObject")
    
13.     Set D = fs.CreateTextFile(Va_FullName1, True)
    
14. End If
    
15. '====信息读取
    
16. Dim Va_i1 As Integer
    
17. 
    
18. '读取文本文件信息，获取Server信息
    
19. '----------------------------------------------------
    
20. Va_lngHandle1 = FreeFile(0)                   '获得文件的句柄
    
21.    
    
22. Open Va_FullName1 For Input As Va_lngHandle1     'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
    
23. Do While Not EOF(Va_lngHandle1)              '循环直到文件尾
    
24.     Line Input #Va_lngHandle1, strLine       '每次读取一行存放在strLine变量中
    
25.     If Va_i1 = 0 Then Va_A1 = strLine
    
26.     If Va_i1 = 1 Then Va_A2 = strLine
    
27.     Va_i1 = Va_i1 + 1
    
28. Loop                '显示得到的全部分内容
    
29. Close Va_lngHandle1     '关闭文件
    
30. '====Server信息读取
    
31. Label1.Caption = Va_A1
    
32. Label2.Caption = Va_A2
    
33. 
    
34. '改为全路径
    
35. If Mid(App.Path, Len(App.Path), 1) = "" Then
    
36.     Label2.Caption = App.Path & "Reports" & Label2.Caption
    
37. '    Label1.Caption = App.Path & Label1.Caption
    
38. Else
    
39.     Label2.Caption = App.Path & "\Reports" & Label2.Caption
    
40. '    Label1.Caption = App.Path & "" & Label1.Caption
    
41. End If
    
42. 
    
43. 
    
44. '==========================================================
    
45.     '创建报表对象
    
46.     Set Report = New grproLibCtl.GridppReport
    
47. 
    
48.     '载入报表模板文件，必须保证 Grid++Report 的安装目录在‘C:\Grid++Report 4.5’下，
    
49.     '关于动态设置报表路径与数据绑定参数请参考其它例子程序
    
50. '    Report.LoadFromFile ("C:\Grid++Report 5.0\Samples\Reports\1a.简单表格.grf")
    
51. '    Report.DetailGrid.Recordset.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Grid++Report 5.0\Samples\Data\Northwind.mdb"
    
52.     Report.LoadFromFile (Label2.Caption)
    
53.     Report.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Label1.Caption & ";password="   '设定参数集合的数据源
    
54.     Report.DetailGrid.Recordset.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Label1.Caption & ";password="  '设定明细网格的数据源
    
55.     '设置报表查询显示器控件的关联报表对象
    
56.     GRPrintViewer1.Report = Report
    
57. 
    
58.     '启动报表运行
    
59.     GRPrintViewer1.Start
    
60.    
    
61. End Sub
    
62. 
    
63. Private Sub Form_Resize()
    
64. Me.GRPrintViewer1.Width = Me.Width - Shape1.Width
    
65. Me.GRPrintViewer1.Height = Me.Height - Shape1.Height
    
66. End Sub
    

复制代码

轻风

还要VB真麻烦

真主

上次讲完了报表的设计，今天我们开始讲如何让报表能正常打印，大家都知道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
    

复制代码

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

xuwenning

收藏了，谢谢分享