Empty Rows on Report

[terragrub]

I found some code that works great to creat empty rows of boxes on a
report from the end of the data to the bottom of the report. Now, I
can't seem to find the original message to post a question on that
thread.

The code is as follows.
In the Report OnFormat section the [Event Procedure] I use the
following.

Private Sub Report_Page()
Dim intBox As Integer
Dim intRow As Integer
Dim ctrl As Rectangle
Dim lngDetTop As Long
Dim lngDetHeight As Long
lngDetTop = Me.Section(5).H eight
lngDetHeight = Me.Section(0).H eight
For intBox = 0 to 11
For intRow = 0 to 31
Set ctrl = Me("box" & intBox)
Me.Line (ctrl.Left, lngDetTop + intRow * lngDetHeight)- _
Step(ctrl.Width , ctrl.Height), , B
Next
Next
End Sub

The problem is that inorder to print nicely all the lines on the report
need to be 1 pt. vs. Hairline. The above prints as hairline. How can I
change it to make the default line 1pt.

I have seen in some of the other post that everyone is saying to use
DrawWidth, but I have not seen how to make this work.

Any help would be appreciated.

Terragrub

[pietlinden]

Private Sub cmdPlayWithLine _Click()
Dim ctlLine As Line
Set ctlLine = Me.Line4

With ctlLine
.BorderColor = vbRed
.BorderWidth = 1
End With
End Sub

[pietlinden]

Private Sub cmdPlayWithLine _Click()
Dim ctlLine As Line
Set ctlLine = Me.Line4

With ctlLine
.BorderColor = vbRed
.BorderWidth = 1
End With
End Sub

[Kevin Dyer]

Okay, I see the code you supplied and it looks good, but I'm not a VB
literate yet. Where would this code have to go to work?

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!