How to Create multiple vertical lines that grow in the detail section of a report

[John Lee]

Hi I'm looking to write some code that will produce a vertical line in the detail section of a report.

I have the following code written in the on page event of my report:

Start Code:

Dim lngReportDetailHeight as long

lngReportDetailHeight = Me.Section(3).Height
Me.Line (0, lngReportDetailHeight)-(0,32767)

End Code

This code draws a line down the left hand side within the detail section of the report which is what I want, only it's to far to the left and I need it to be slightly more to the right.

I also need to be able reproduce this line multiple times but against each of the columns of data in my report, please attached screen shot of my report, you can see the dividing lines in the column headers, which is what I would like to achieve in the detailed section of the report.

Any assistance would be greatly appreciated.

 

[xavier.batlle]

Try this code in the Detail_Print Section. It draws 3 different vertical lines.
In this example you have to set the LeftPosition value in TWIPS.

    Dim LeftPosition As Single
    Const MAX_HEIGHT_SIZE  As Single = 32767 ' This limit correspond to the section’s actual rendered height, not control properties.
 
    LeftPosition = 2000
    Me.Line (LeftPosition, 0)-(LeftPosition, MAX_HEIGHT_SIZE)
 
    LeftPosition = 4000
    Me.Line (LeftPosition, 0)-(LeftPosition, MAX_HEIGHT_SIZE)
 
    LeftPosition = 6000
    Me.Line (LeftPosition, 0)-(LeftPosition, MAX_HEIGHT_SIZE)

 

[John Lee]

Hi I'm looking to write some code that will produce a vertical line in the detail section of a report.

I have the following code written in the on page event of my report:

Start Code:

Dim lngReportDetailHeight as long

lngReportDetailHeight = Me.Section(3).Height
Me.Line (0, lngReportDetailHeight)-(0,32767)

End Code

This code draws a line down the left hand side within the detail section of the report which is what I want, only it's to far to the left and I need it to be slightly more to the right.

I also need to be able reproduce this line multiple times but against each of the columns of data in my report, please attached screen shot of my report, you can see the dividing lines in the column headers, which is what I would like to achieve in the detailed section of the report.

Any assistance would be greatly appreciated.

Hi, Thank you

For your assistance, I've been able to create the additional lines, however they extend right to the top and the bottom of the report, I only need them to extend to the bottom of the column headers in red (white text) and not beyond the bottom of the detail section, any help with that would be most appreciated, please see screen shot.

 

[John Lee]

Oh, and here is the amended code:

Code starts:
Private Sub Report_Page()

Dim lngReportDetailHeight As Long
Dim LeftPosition As Single

lngReportDetailHeight = Me.Section(3).Height

Const Max_Height_Size As Single = 11000

LeftPosition = 185
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

LeftPosition = 2100
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

LeftPosition = 4100
Me.Line (LeftPosition, o)-(LeftPosition, Max_Height_Size)

LeftPosition = 6700
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

LeftPosition = 9350
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

LeftPosition = 11970
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

LeftPosition = 14010
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

LeftPosition = 15960
Me.Line (LeftPosition, 0)-(LeftPosition, Max_Height_Size)

End Sub

Code Ends

I've just commented out the following lines and I'm still getting the same result.

''Dim lngReportDetailHeight As Single
''lngReportDetailHeight = Me.Section(3).Height

Any suggestions appreciated

 

[xavier.batlle]

Hi, Thank you

For your assistance, I've been able to create the additional lines, however they extend right to the top and the bottom of the report, I only need them to extend to the bottom of the column headers in red (white text) and not beyond the bottom of the detail section, any help with that would be most apreciables, please see screen shot.

I think you have the code in the page section instead of in the detail section.

 

[John Lee]

I think you have the code in the page section instead of in the detail section.

Yes, it's in the On Page Event of the report, so when you say it should be in the detail section, which event in the detail section do you mean

 

[John Lee]

Okay I think I got in, I've put the code into the on print event in the detail section, thanks for your assistance.

 

[theDBguy]

Just wondering if gridlines would have worked in your case.

 

[CJ_London]

that is hard coding your line positions, requiring a recode if you resize/reposition your controls

Perhaps try something like

'identify header row '(assumes header labels are aligned top)'
dim ctl as control
dim hdrTop as long
dim hdrRight as long

for each ctl in me.header
    if ctl.controltype=aclabel then
      if ctl.top>hdrTop then hdrTop=ctl.top
     
    end if
next ctl

'parse the header row
for each ctl in me.header
    if ctl.controltype=aclabel and ctl.Top=hdrTop then
      Me.Line (ctl.left, 0)-(ctl.left, Max_Height_Size)
      if ctl.left+ctl.width>hdrRight and hdrTop=ctl.top then hdrRight=ctl.left+ctl.width
    end if
next ctl

'add rightmost line
Me.Line (hdrRight, 0)-(hdrRight, Max_Height_Size)

 

[John Lee]

Just wondering if gridlines would have worked in your case.

Hi, Yes the grid lines did work as I wanted, thank you very much

 

[theDBguy]

Hi, Yes the grid lines did work as I wanted, thank you very much

Glad to hear that. I guess it’s less work and automatically adjusts as well. Good luck with your project.