将边框样式设为透明,在报表主体的print事件中用line方法划线(画框)就可以了。
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Dim Myctr As Control
For Each Myctr In Me.Section(acDetail).Controls
Me.Line ((Myctr.Left), Myctr.Top)-((Myctr.Left + Myctr.Width), Me.Height), 0, B
Next
Set Myctr = Nothing
End Sub