报表跨节垂直居中例子

t小宝

很多用惯EXCEL的朋友在制作报表时喜欢用EXCEL的思路，比如垂直居中，而在ACCESS中没有垂直居中属性，特别是跨节的垂直居中，很麻烦！
下面例子用一种不常用但很简单的方法实现报表中跨节的垂直居中。

代码:

1. 
   
2. Function PrintTextToCenterByGroup(rpt As Report, lNumber As Long, lCounts As Long, _
   
3.     sText As String, lLeft As Long, Optional sFName As String, Optional iSize As Integer, _
   
4.     Optional bFBold As Boolean) As Long
   
5.    
   
6. '功能说明:在有分组的报表中把文本(一般是用于分组的字段)每组只打印一行，并在组的垂直范围内居中
   
7. '参数说明:
   
8. 'rpt:     报表本身
   
9. 'lNumber: 基于组的连续的序号(即每个组都从1开始连续编号). 在主体上放一文本框,数据源为"=1",运行总和属性为"工作组之上",即可获得基于组的连续序号
   
10. 'lCounts: 每个组的总记录数. 在组页眉或页脚上主一文本框,数据源为"=Count(*)",即可获得每个组的总记录数
    
11. 'sText:   每个组要打印的文本
    
12. 'lLeft:   打印的文本的左边距
    
13. 'sFName:  打印的文本的字体,可选
    
14. 'iSize:   打印的文本的大小,可选
    
15. 'bFBold:  打印的文本是否加粗,可选
    
16. '使用方法:在报表主体节的格式化事件中使用
    
17. '      如：PrintTextToCenterByGroup Me, Me.序号, Me.组记录数, Me.产品类别, 350, "黑体", 14, True
    
18. '作    者:t小雨(tcl013@126.com)
    
19. '创建日期:2008年11月15日
    
20. '更新日期:2008年11月19日
    
21.     Dim iTxtHeight As Integer
    
22.    
    
23.     If Len(sFName) <> 0 Then rpt.FontName = sFName
    
24.     If iSize > 0 Then rpt.FontSize = iSize
    
25.     rpt.FontBold = bFBold
    
26.    
    
27.     iTxtHeight = rpt.TextHeight(sText) - iSize * 6.1
    
28.     '获得字符实际高度，须在设置字体大小代码之后。
    
29.     '由于TextHeight 方法返回的字符高度包括上面和下面的前导空间，并且空间高度随字体大小比例变化，
    
30.     '代码 大小 * 6.1 获得空间高度（参数6.1是手动测试的，只是大致准确）。
    
31.    
    
32.     If lCounts / 2 + 0.5 = lNumber Then
    
33.         '如果当前记录序号等于总记录数除以2+0.5，则总记录数为奇数，当前记录为最中间的一条记录
    
34.         '比如总记录数为5，则中间的记录序号应为3，5/2+0.5=3
    
35.         
    
36.         rpt.CurrentY = (rpt.主体.Height - iTxtHeight) / 2
    
37.         '当前行记录为中间记录时，设置打印起点使打印字符显示在本行的中间
    
38.     ElseIf lCounts / 2 = lNumber Then
    
39.         '当记录总数为偶数时，最中间的有两条记录
    
40.         '如果当前记录序号等于总记录数除以2，则当前记录为中间两条记录的第一条
    
41.         '比如总记录数为4，则最中间的两条记录应为2和3，第一条记录序号就是2，4/2=2
    
42.         
    
43.         rpt.CurrentY = rpt.主体.Height - iTxtHeight / 2
    
44.         '当前记录为两条中间记录的第一条时，设置打印起点为主体高度减去字符高度的一半，这样只显示字符的上半部分
    
45.     ElseIf lCounts / 2 + 1 = lNumber Then
    
46.         '如果当前记录序号等于总记录数除以2+1，则当前记录为中间两条记录的第二条
    
47.         
    
48.         rpt.CurrentY = 0 - iTxtHeight / 2
    
49.         '两条中间记录的第二条，设置打印起点为0减去字符高度的一半，只显示字符的下半部分
    
50.         '这样一来，第一条在主体的下方显示字符的上半部分，第二条在主体的上方显示字符的下半部分，就造成了跨行的假象！
    
51.         
    
52.     Else
    
53.         Exit Function
    
54.         '不符合上述3种条件的记录不打印，退出过程
    
55.     End If
    
56.     rpt.CurrentX = lLeft
    
57.    
    
58.     rpt.Print sText
    
59.     '打开字符
    
60.    
    
61. End Function
    

复制代码

例子:

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

Henry D. Sy

谢谢分享@这个人呀到处发帖[:34] [:34]

huangqinyong

好东西，要支持一下的

tmtony

好实例! 谢谢分享!

t小宝

原帖由 dddddd 于 2008-11-19 17:44 发表
谢谢分享@这个人呀到处发帖[:34] [:34]

因为有人到处回帖

kangking

谢谢分享!

Grant

我也到处回帖才行哟

wang1950317

看看[:50]

付谦

学习一下

付谦

学习一下