By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,369 Members | 1,001 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,369 IT Pros & Developers. It's quick & easy.

Empty Rows on Report

P: n/a
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).Height
lngDetHeight = Me.Section(0).Height
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

Nov 13 '05 #1
Share this Question
Share on Google+
3 Replies


P: n/a
Private Sub cmdPlayWithLine_Click()
Dim ctlLine As Line
Set ctlLine = Me.Line4

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

Nov 13 '05 #2

P: n/a
Private Sub cmdPlayWithLine_Click()
Dim ctlLine As Line
Set ctlLine = Me.Line4

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

Nov 13 '05 #3

P: n/a
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!
Nov 13 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.