Results 1 to 3 of 3
  1. #1
    Lounger
    Join Date
    May 2002
    Posts
    34
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Report Help (97)

    Ok here is the deal I am creating an access report. I am using the line tool to make the report look better. I have a textbox that has the Can Grow and Can Shrink set to yes. Next to the textbox I have a vertical line. I there is too much data in the textbox it grows, but my line does not. I tried to set the line height to the height of the textbox, but it set it to the original height of the text box not after it has grown. Is there a way to make the line grom with the box?
    thanks
    DGW

  2. #2
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    Mishawaka, Indiana, USA
    Posts
    145
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Report Help (97)

    Here is some code that I found on one of the message boards. Don't remember which one.

    'Print vertical lines on a report that will adjust in size (vertically) to match the size of a text box set to grow if necessary '(CanGrow is set to True). Put the following code into the Detail Section's On Print event.

    Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim sngKeyWordsTop As Single
    Dim sngKeyWordsLeft As Single
    Dim sngKeyWordsHeight As Single
    Dim sngKeyWordsBottom As Single
    sngKeyWordsTop = Me![txtTopicKeyWords].Top
    sngKeyWordsHeight = Me![txtTopicKeyWords].Height
    sngKeyWordsLeft = 1650
    sngKeyWordsBottom = sngKeyWordsTop + Me![txtTopicKeyWords].Height
    Me.DrawStyle = 6
    Me.DrawWidth = 12
    Me.Line (sngKeyWordsLeft, sngKeyWordsTop)- _
    (sngKeyWordsLeft, sngKeyWordsBottom), RGB(0, 255, 0)
    End Sub

  3. #3
    Lounger
    Join Date
    May 2002
    Posts
    34
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Thanks!!!!!!

    It works great!!!!!!1 <img src=/S/bow.gif border=0 alt=bow width=15 height=15>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •