报表打印中的难题

在报表的主体里加上一条横线和一个文本框，将文本框设数据源＝1，并且在运行总和栏设工作组或全部之上，然后在报表的代码上写：

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
If (Me![文本框] Mod 3) = 0 Then'横线的间隔行数
Me![分隔线的名称].Visible = True
Me![分隔线的名称].Visible = False
End If

End Sub

　这是我昨天做的