方法一： 加一个分页符PageBreak1，在报表的代码界面里面写入以下代码：
% ^( ?! m9 y+ G! p7 m! O1 P' p Option Compare Database
( W& y I3 q" K Dim row As Long
" H8 a& j1 [3 B Dim RowsInPage As Integer
$ I4 y: m$ I) ~7 X. ?) F$ ?) v4 T5 [ Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)* V. {% s4 k$ |% \7 g7 z! w
RowsInPage = 74 X2 X7 y+ \0 y- u3 M9 u* ?
row = row + 12 ]6 v7 v n! X
If row >= RowsInPage Then: @9 r- r1 A1 l, Z' Q) J
Me.PageBreak1.Visible = True! @5 u4 m2 M& Z4 N0 u# o* C
row = -1
, w" H" {9 F3 u0 K0 Z x Else
' V, N3 j- V f! v Me.PageBreak1.Visible = False4 B5 a3 [) W' Y V9 H; ]9 r
End If
; S8 \* W* S. ^" I+ P: n( E8 s End Sub# M1 [1 D# L( r% Z8 u# K* K
方法二：
' Y. z" Q& |# `. I1 K2 ` 在报表的代码界面里面写入以下代码：
9 ^ g& R+ ^0 i0 P1 H Option Compare Database% ?. o" {: z+ H9 S% G4 `. F
Dim row As Long' ]! E: ?; c) L a
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
- \5 s3 ?0 b% q& z5 T; {( E2 L row = row + 1
3 }, @9 P; I( A: a If Me.Section(acDetail).ForceNewPage = 1 Then' o' g- b# @. L4 n4 \" Z7 X
Me.Section(acDetail).ForceNewPage = 0
9 `& Z2 F$ @, m4 T" E7 q0 [ Else( K* ~1 F& R* W. ]0 |& \" E* `
If row Mod 7 = 0 Then9 T: M$ ^; M7 G- S& @* c* p: z
Me.Section(acDetail).ForceNewPage = 1: \1 A1 R' V3 G5 A3 g+ \9 _9 V. n
row = 0
3 U, H4 A8 d. c0 ^$ F/ Q End If- e5 C* a2 o' c+ o) g
End If
+ v C4 b, q! \5 Y! }) U# v End Sub |
发表于 2012-7-31 22:26:35
