如何依据数据手动来对报表进行添加空行

roych

好像是t小宝的作品……请自行创建模块处理。

1. Option Compare Database
   
2. Option Explicit
   
3. 
   
4. '************************************************************************************************
   
5. '参数说明:
   
6. 'ReportSheet (rpt, LeftControl, RightControl, RowsOfPage, Style)
   
7. '           rpt：必选，报表名称
   
8. '           LeftControl：必选，最左边控件名称，用于确定左边距。
   
9. '           RightControl：必选，最右边控件名称，用于确定右边距。
   
10. '           RowsOfPage：可选，为每页指定行数
    
11. '           Style：可选，0为方框，1为仅画横线，2为仅画竖线。
    
12. '调用说明：
    
13. '在报表中“打印页前”事件中调用：=ReportSheet (rpt, [左控件名称], [右控件名称], RowsOfPage, Style)
    
14. '*************************************************************************************************
    
15. Public Function ReportSheet(rpt As Report, LeftControl As Control, RightControl As Control, _
    
16.                             Optional RowsOfPage As Integer, Optional Style As Integer = 0)
    
17. On Error Resume Next
    
18. 
    
19.     Dim intI As Integer
    
20.     Dim lngTop As Long
    
21.     Dim lngBottom As Long
    
22.     Dim lngLeft As Long
    
23.     Dim lngRight As Long
    
24.     Dim lngRowHeight As Long
    
25.    
    
26.     Dim lngRows As Long
    
27.     Dim lngRowTop As Long
    
28.     Dim lngBottomMax As Long
    
29.    
    
30.     Dim ctl As Control
    
31.    
    
32.     With rpt
    
33.         lngRowHeight = .Section(acDetail).Height
    
34.         lngTop = .Section(acPageHeader).Height
    
35.         If .Page = 1 Then lngTop = lngTop + .Section(acHeader).Height
    
36.         lngBottomMax = .Section(acPageFooter).Height
    
37.         lngBottomMax = .ScaleHeight - lngBottomMax
    
38.     End With
    
39. 
    
40.     lngRows = Int((lngBottomMax - lngTop) / lngRowHeight)
    
41.     If RowsOfPage > 0 Then
    
42.        If RowsOfPage < lngRows Then lngRows = RowsOfPage
    
43.     End If
    
44.     lngBottom = lngTop + lngRowHeight * lngRows
    
45.    
    
46.     lngLeft = rpt.ScaleWidth
    
47.     For Each ctl In rpt.Section(acDetail).Controls
    
48.         If lngLeft > ctl.Left Then lngLeft = ctl.Left
    
49.         If lngRight < ctl.Left + ctl.Width Then lngRight = ctl.Left + ctl.Width
    
50.         If Style <> 1 Then rpt.Line (ctl.Left, lngTop)-(ctl.Left, lngBottom)
    
51.     Next
    
52.     If Style <> 1 Then rpt.Line (lngRight, lngTop)-(lngRight, lngBottom)
    
53.    
    
54.    
    
55.     If Style <> 2 Then
    
56.         For intI = 0 To lngRows
    
57.             rpt.Line (lngLeft, lngTop + lngRowHeight * intI)-(lngRight, lngTop + lngRowHeight * intI)
    
58.             
    
59.         Next
    
60.     End If
    
61.         
    
62. End Function

复制代码