[求助]如何加粗表格线?

wanzerp

以下是小弟在本站较前时间学的一个语句,用来划报表表格线很好用,但小弟其实并不懂语句其中的奥秘,只是拿来就用,该语句的问题是所划的表格线如头发一般细,本人想使表格线加粗,但却不知应该如何改写该语句, 请本站各位出手相助, 在此不胜感激.





Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer

intLineMargin = 0 '原表格框与右侧竖线的的距离

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

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

Set CtlDetail = Nothing
End Sub