thickness of the line

[vsts2007]

I wrote a code for vertical lines in report which has memo fields... but the thickness of the line very less.. is it possible to increase the thickness of the line...


VSTS

[missinglinq]

Sure , either go into the line's Property Box:

Properties - Format - Borders Width and set to 1-6 pts

or in VBA code

YourLineName.BorderWidth = 6

Linq ;0)>

[vsts2007]

i am unable to do it can you explain me in details
in the report because it had a memo field i wrote code for vertical lines and for those lines only i want increase the thickness

[QVeen72]

Hi,

Select the Line, Right-Click goto Properties,
In "All" Tab,
Set these properties:
Border Style = Solid
BorderWidth =4pt

You can also set the Border Colour.

Regards
Veena

[vsts2007]

It is possible when i draw the line
but i wrote code for it,
its not appearing in the design mode
but i will get it when i print the document
i think we should set this option in the code itself.
As i got the code on this websie only i am unable to change it

Hi,

Select the Line, Right-Click goto Properties,
In "All" Tab,
Set these properties:
Border Style = Solid
BorderWidth =4pt

You can also set the Border Colour.

Regards
Veena

[QVeen72]

Hi,

OK, then you must be using "Line" Function .
You can draw it this way:

[code=vb]
Printer.DrawSty le = vbSolid
Printer.DrawWid th = 5
Printer.Line (11280, 240)-(11280, 1080), vbRed
Printer.DrawWid th = 1
[/code]

Regards
Veena

[vsts2007]

I have total nine vertical lines in my report. Whether I have to give this code before mentioning all the line details or before that. when i tried at the beginning and at the end it is showing error.

can you plese guide me

[QVeen72]

Hi,

Yes, You need to give before drawing the Line..
What Code are you using to draw the line...?
and What is the Error message...?


Regards
Veena

[vsts2007]

This is the code i am using:
Me.Line (0 * 1440, 0)-(0 * 1440, 15350)
Me.Line (0.5 * 1440, 3500)-(0.5 * 1440, 14000)
Me.Line (2.3 * 1440, 3500)-(2.3 * 1440, 14000)
Me.Line (2.9 * 1440, 3500)-(2.9 * 1440, 14000)
like this i have seven lines
i want increase the width of each line.

[QVeen72]

Hi,

Change it to :

[code=vb]

Me.DrawStyle = vbSolid
Me.DrawWidth = 5

Me.Line (0 * 1440, 0)-(0 * 1440, 15350)
Me.Line (0.5 * 1440, 3500)-(0.5 * 1440, 14000)
Me.Line (2.3 * 1440, 3500)-(2.3 * 1440, 14000)
Me.Line (2.9 * 1440, 3500)-(2.9 * 1440, 14000)

Me.DrawWidth = 1

[/code]

Regards
Veena

[vsts2007]

Ok, I will try
if I want to increase the line width further i have to change the number "5" or number "1"
just for confirmation