Office中国论坛/Access中国论坛

标题: [求助]如何加粗表格线? [打印本页]

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)