Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Can a vertical line grow with the report?

Status
Not open for further replies.

GoinDeep

Technical User
Jan 9, 2003
100
US
This may be a dumb question, but I must ask. Can a vertical line that runs down the middle of one of my reports grow when the rest of teh report does?
 
Hi,
I did a quick little experiment, and it works just fine. Make sure that you set the height property to be the same size as your section. If you need to place this into some group headers or footers, be sure to jot down the "Left" property in the detail section. That way, your vertical line will appear in the exact same position. HTH, [pc2]
Randy Smith
California Teachers Association
 
Lines do not have a grow/shrink property. They are (sans some code) fixed in height. A line where the top property is 0 and the height property is the same as the section height will be 'continuious' if the section height does not change (i.e. no controls in the section have and exercise the Grow / Shrink properties). To achieve the continious effect -even across a single section- with the possability of growth / shrinkage requires code. Somewhere in hte realm of 'Tek-Tips' I (and others) have posted code to do so, see thread181-80808 for at least one of the threads. Using "Advanced" search with KeyWords "Vertical" "Line". All words and any date produced this and NUMEROUS other threads, many of which provide thorough discussion and complete procedures for variation(s) on the thems.

MichaelRed
m.red@att.net

Searching for employment in all the wrong places
 
I have found this to work real well. Put this in your "On Print" property of the "Detail" section

Const DS_Invisible = 0
' set line draw width
Me.DrawWidth = 10
' set drawstyle mode
Me.DrawStyle = DS_Invisible
'
' Assume ctlBoxName.height is the control box that will expand the most. If you are not sure, use an if then statement to see which text boxes have the higher height
'
Me.Line (LineName.Left, -40)-(LineName.Left, ctlBoxName.Height + 40)
Me.Line (LineName1.Left, -40)-(LineName1.Left, ctlBoxName.Height + 40)

'....etc for more lines



' note, added +-40 to make the line look continuous

Paul
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top