Underlining the entire line of a textbox in an access 2000 report

  • Thread starter Thread starter Smokinn
  • Start date Start date
S

Smokinn

Basically my detail section is just a box with the description. It can
get
pretty long. I made the textbox unshrinkable but it can get longer.
That way
it always takes the middle half of my page. My problem is that I want
every
line in that box underlined, whether there is text or not. Is there a
way to
do this? I looked around and didn't find any option in the properties
or
help that seemed helpful so I figured I'd brute force it and stick in
a
bunch of lines. These lines don't show up on a second page though so it
was
futile.

Any ideas?

If you don't understand my explanation I can put some screenshots on
the web
to give a better visual.
 
From my reply in Tek-Tips. Did you try this and did it work?

Assuming your text box is named txtComments and it is in the detail section,
you could use the code below. You may need to change the intLineSpacing
depending on your font size.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim intLineSpacing As Integer
Dim intMaxHeight As Integer
Dim intLoop As Integer
intMaxHeight = Me.txtComments.Height
intLineSpacing = 190
For intLoop = Me.txtComments.Top + intLineSpacing To _
Me.txtComments.Top + intMaxHeight _
Step intLineSpacing
Me.Line (Me.txtComments.Left, intLoop)- _
Step(Me.txtComments.Width, 0)
Next
End Sub
 
Back
Top