[疑难]报表主体增加分页符后VBA代码不能正常运行

qlm

相信不少朋友见过下面的代码，它可以自动为报表内容增加可自适应大小的方框。但是当在报表主体增加一分页符时，下面的代码就会出现“对象不支持的属性或方法”的错误提示，我百思不得其解，请高手指点！

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer

intLineMargin = 60

For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        If CtlDetail.name <> "Memo" Then
        Me.Line ((.Left + .Width + intLineMargin), 1)-(.Left + .Width + _
intLineMargin, Me.Height)
        End If
    End With
Next
   

    With Me
        Me.Line (1, 1)-Step(.Width, .Height), 1, B
    End With

Set CtlDetail = Nothing
End Sub

方漠

可能是因为ACCESS把分页符也视作一个控件。

andymark

判断类型再执行

            If CtlDetail.ControlType <> acPageBreak Then

                If CtlDetail.Name <> "Memo" Then
                    Me.Line ((.Left + .Width + intLineMargin), 1)-(.Left + .Width + _
                                                                   intLineMargin, Me.Height)
                End If
            End If

qlm

谢谢两位!

高手就是高手!

问题解决了!

做在下面例子了,固定行数报表示例

http://www.office-cn.net/forum.php?mod=viewthread&tid=47822