Office中国论坛/Access中国论坛

标题: 請教2個報表問題﹗ [打印本页]

作者: be 时间: 2005-3-11 01:44
标题: 請教2個報表問題﹗
請教各位前輩兩個問題﹕

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

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

作者: ququ 时间: 2005-3-11 04:03
在報表的“列印頁前”事件中輸入下面內容。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 时间: 2005-3-11 04:13
http://www.access911.net/index.asp?board=8&recordid=72FAB21E

作者: be 时间: 2005-3-15 01:59
哦﹐搞明白了﹐謝謝ququ![em02]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)