fieldset{padding:10px;}
如何用vba控制acces报表的页数如何用vba手動控制acces报表的页数 不是自動和數據庫關聯，報表的數據控制全部是vba控制的，記錄十條一分頁， 幫忙看看！——解决方案——————————————————–Access报表提供的接口函数有限。 要实现每页打印固定行数的需求，可以考虑对数据处理或设置页边距。 对数据处理： 追加一定的空行，用于每页打印时超出10行外的行打印。 设置页边距，也可以实现每页打印10行。 但这都是需要调试的，而不是完全自动的。——解决方案——————————————————–如是指定行数：10行/页，指定文本框内容，示例： "文本0 "、 "文本2 "为主体内容即报表内容 文本4：控制10行/页，控件来源为1，设置运行总和为全部之上，可以设置 为不可见。 QQ2：表名，自行更改 Private Sub Report_Open(Cancel As Integer) Set ddqq = CurrentDb.OpenRecordset( "select * from qq2 ") Me.RecordSource = "select * from qq2 " End Sub Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) If Not ddqq.EOF Then Me( "文本0 ") = ddqq(0) Me( "文本2 ") = ddqq(1) ddqq.MoveNext End If If Me.文本4 Mod 10 = 0 Then Me.Section(acdatail).ForceNewPage = 1 Else Me.Section(acdatail).ForceNewPage = 0 End If End Sub 如果有可能，我带你去远行。躺在德德玛的草原，
