Showing Labels only in the First Column of a muti column Report

[Guest]

I have created a muli column report with Labels (Listing the Parameters) and
Text Boxs (Display the parameters). I only require to display the labels on
the left
side of the report and want the text box to be in columns after this.
Currently I have a situation where the Label & Text Box are repeated in each
row.
Can anyone help?

I see that there is a reference to a similar problem in this forum where
someone
Refers to article Q208491, where can I locate this?

I would appreciate any assistance.

 

[Allen Browne]

You will find the article at:
http://support.microsoft.com/?id=208491

If the boxes and sections are fixed height (i.e. without CanShrink or
CanGrow), it might be easier to just use a wide left margin whack the labels
there with the Print method in the Page event of the report.

 

[Guest]

Thanks for the Info.

I have refered to the article 208491 and I have set up a sample and it works
well.
However I have up to 100 entries and this would take alote of code (I'm also
conscoius of the fact that the report may change in time i.e. new fields
added or fields deleted).

Could you if possible provide more detail in setting up "wide left margin
whack the labels there with the Print method in the Page event of the report."

Thanks for your responce.

 

[Allen Browne]

The example below shows how to print "Hello world" 10 times down the left of
the report, matching where the Detail section fits.

A quick test shows that this does not fit in the margin of the report, so
consumes space in the Detail section. If the "labels" are long, this may not
be convenient for you.

Private Sub Report_Page()
Dim i As Integer
Me.FontName = "Arial"
Me.FontSize = 12

For i = 0 To 9
Me.CurrentX = 0
Me.CurrentY = i * Me.Section(acDetail).Height
Me.Print "Hello world"
Next
End Sub

 

[Guest]

Perferct, Thanks for your help Allen,

The example below shows how to print "Hello world" 10 times down the left of
the report, matching where the Detail section fits.

A quick test shows that this does not fit in the margin of the report, so
consumes space in the Detail section. If the "labels" are long, this may not
be convenient for you.

Private Sub Report_Page()
Dim i As Integer
Me.FontName = "Arial"
Me.FontSize = 12

For i = 0 To 9
Me.CurrentX = 0
Me.CurrentY = i * Me.Section(acDetail).Height
Me.Print "Hello world"
Next
End Sub