【源码】报表分页总计及补空行示例

红尘如烟

Access的报表存在一个问题，无论你在设计视图中将控件对的看上去多么整齐，但预览的时候通过控件边框显示出来的表格线条仍然会出现错位现象，而通过报表的Line方法来画表格就没有这个问题了，而且在不用到临时表的情况下，画表格也是补空行的好办法。

1. '=======================================================================
   
2. '函数名称： ReportSheet
   
3. '功能描述： 简单报表中用来画表格并实现补空行，用于打印单据类每页样式固定的报表
   
4. '输入参数： rpt               必需的，报表对象，使用时用Me关键字引用
   
5. '          RowsOfPage        必需的，每页要显示的记录行数
   
6. '          Style             可选的，表格样式，0为网格式，1为横格式，2为竖格式
   
7. '          HasColumnHeader   可选的，是否对列标题同样画表格
   
8. '返回参数： 无
   
9. '使用示例： 在窗体的Page事件中调用： ReportSheet Me,30
   
10. '相关调用：
    
11. '使用注意： 主体节中的控件必须是索引从左到右，可以通过选中主体节中的所有控件，然后剪切再粘贴的操作来处理
    
12. '兼 容 性：
    
13. '参考资料：
    
14. '作   者： 红尘如烟
    
15. '创建日期： 2010-9-17
    
16. '=======================================================================
    
17. Public Function ReportSheet(rpt As Report, _
    
18. ByVal RowsOfPage As Integer, _
    
19. Optional ByVal Style As Integer = 0, _
    
20. Optional ByVal HasColumnHeader As Boolean = True)
    
21. Dim intI As Integer
    
22. Dim lngTop As Long '表格上边距，即报表页眉的高度
    
23. Dim lngBottom As Long '表格下边距，报表页眉的高度 ＋主体节高度×每页要显示的记录数
    
24. Dim lngLeft As Long '表格左边距，第一个控件的左边距
    
25. Dim lngRight As Long '表格右边距，最后一个控件的左边距＋最后一个控件的宽度
    
26. Dim lngRowHeight As Long '行高，即主体节高度
    
27. Dim lngMaxIndex As Integer '主体节控件最大索引值
    
28. 
    
29. lngRowHeight = rpt.Section(acDetail).Height
    
30. lngMaxIndex = rpt.Section(acDetail).Controls.Count - 1
    
31. lngTop = rpt.Section(acPageHeader).Height
    
32. lngBottom = lngTop + lngRowHeight * (RowsOfPage)
    
33. lngLeft = rpt.Section(acDetail).Controls(0).Left
    
34. lngRight = rpt.Section(acDetail).Controls(lngMaxIndex).Left + rpt.Section(acDetail).Controls(lngMaxIndex).Width
    
35. 
    
36. If HasColumnHeader Then
    
37.     RowsOfPage = RowsOfPage + 1
    
38.     lngTop = lngTop - lngRowHeight
    
39. End If
    
40. 
    
41. '样式为1（竖线格样式）时不画横线
    
42. If Style <> 1 Then
    
43.     For intI = 0 To RowsOfPage
    
44.         rpt.Line (lngLeft, lngTop + lngRowHeight * intI)-(lngRight, lngTop + lngRowHeight * intI)
    
45.     Next
    
46. End If
    
47. '样式为2（横线格样式）时不画竖线
    
48. If Style <> 2 Then
    
49.     For intI = 0 To lngMaxIndex
    
50.          rpt.Line (rpt.Section(acDetail).Controls(intI).Left, lngTop)-(rpt.Section(acDetail).Controls(intI).Left, lngBottom)
    
51.     Next
    
52. '在最右边画竖线
    
53. rpt.Line (lngRight, lngTop)-(lngRight, lngBottom)
    
54. End If
    
55. End Function
    
56. 
    

复制代码

游客，如果您要查看本帖隐藏内容请回复

lkkl66

先学习－－收藏！谢谢！

tmtony

谢谢分享!!

sxb2007

谢谢分享!!

zyp

谢谢,收下了

hljthzbc

报表分页总计及补空行示例

ZHENGLIAN

这个应该有用哦! 大力支持一下。

aslxt

好东西，好心情

ycxchen

谢谢分享，学习！

ycxchen

运行出错，提示引用不存在的对象，ngLeft = rpt.Section(acDetail).Controls(0).Left这句话反相显示。