請教2個報表問題﹗

be

請教各位前輩兩個問題﹕

1）在報表中﹐如果每頁打印20條記錄（每條記錄為1行﹐帶邊框）﹐然后換頁﹐請問如何實現換頁﹖

2）如果最后一頁不滿20行記錄﹐則用有邊框的空行補足20行﹐請問如何實現補滿20行﹖[em06]

ququ

在報表的“列印頁前”事件中輸入下面內容。Private Sub Report_Page()

Dim rpt As Report, lngColor As Long

Dim I As Integer

Set rpt = Reports!當前報表

rpt.ScaleMode =20

lngColor = RGB(255, 0, 0)

rpt.Line (2.503, 2.5)-(4.735, 6.588), lngColor, B

rpt.Line (7.354, 2.5)-(9.074, 6.588), lngColor, B

rpt.Line (10.317, 2.5)-(12.037, 6.588), lngColor, B

rpt.Line (13.81, 2.5)-(15.952, 6.588), lngColor, B

rpt.Line (19.123, 2.5)-(19.123, 6.588), lngColor

For I = 1 To 20

    rpt.Line (0.4, 2.5 + (I - 1) * 0.584)-(19.123, 2.5 + I * 0.584), lngColor, B

Next I

End Sub

ququ

http://www.access911.net/index.asp?board=8&recordid=72FAB21E

be

哦﹐搞明白了﹐謝謝ququ![em02]