Drawing lines on a report

[roryok]

I've got the following to draw a vertical line on each control followed by a rectangle around the Details section in a report.

What I cannot seem to find in Access VBA Help is how to set the thickness of the lines in this instance using VBA. I want to set the thickness at 1pt.

Can anyone suggest a way of doing this please?

' This is the spacing between the right edge of the
' control and the Vertical Separation Line
intLineMargin = 0
' draw a vertical line to separate each field
' for each control in details control
For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width + _
intLineMargin, Me.Height), RGB(0, 0, 0)
    End With
Next
        'Draw a box around the Detail section
    With Me
        Me.Line (0, 0)-Step(.Width, .Height), RGB(0, 0, 0), B
    End With
Set CtlDetail = Nothing
 

Roderick

[FishVal]

Hi, Roderick.

Read Access help topic thoroughly.

................
The width of the line drawn depends on the DrawWidth property setting. The way a line or rectangle is drawn on the background depends on the settings of the DrawMode and DrawStyle properties.
................