请高手帮忙修改自动画线代码！

cyber-bobo

以下是报表中自动画线的代码：
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 <> "明细" Then
        Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width + _
intLineMargin, Me.Height)
        End If
    End With
Next
   
    With Me
        Me.Line (0, 0)-Step(.Width, .Height), 0, B
    End With
Set CtlDetail = Nothing
End Sub


但出来的效果就正如图片所见一样：横线粗细不统一，且粗横线的出现不规则，请教问题出在哪里？谢谢！

tz-chf

只是屏幕显示的问题，和实际打印不搭界。

goto2008

cyber-bobo 。。你好。。
你那个报表画线例子能传给我学习下吗
我也是一直在这个报表画线上苦恼

cyber-bobo

tz-chf： 您好，上面代码通过几个月的大量打印测试，发现实际打印中也是一样的情况，很不美观，而且我用针式打印机时就发现粗线实际上是由两条细线中间有间隙造成的，能详细分析下原因吗？谢谢！

cyber-bobo

未解决！未解决！未解决！

andymark

以前用代码画线打印送货单,当更换电脑或打印机时,都可能需要重新设计很烦麻
现在的做法是直接在报表画线,然后通过子报表显示数据

cyber-bobo

能给个例子吗？谢谢！就我提供的代码而言，这代码有问题吗？

cyber-bobo

再请教：上面代码如何设置所画线条的粗细？