問題:
每頁打印一定行數后自動分頁
方法一:
加一個分頁符,在報表的代碼界面里面寫入以下代碼:
以下為引用的內容: OptionCompareDatabase DimrowAsLong DimRowsInPageAsInteger PrivateSub主體_Format(CancelAsInteger,FormatCountAsInteger) RowsInPage=7 row=row 1 Ifrow>=RowsInPageThen Me.PageBreak18.Visible=True row=-1 Else Me.PageBreak18.Visible=False EndIf EndSub |
方法二:
在報表的代碼界面里面寫入以下代碼:
以下為引用的內容: OptionCompareDatabase |
新聞熱點
疑難解答