height of page header section

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have used Q207624 and managed to turn off the visability of text in my page
headers and footers on letter continuation sheets. But I am left with a big
spaces. Is there any way I can reset the height of the header/footer when i
turn off the visability of my text boxes. Maybe something like
inReport!.Pageheader.height = 0

Thanks
 
judith said:
I have used Q207624 and managed to turn off the visability of text in my page
headers and footers on letter continuation sheets. But I am left with a big
spaces. Is there any way I can reset the height of the header/footer when i
turn off the visability of my text boxes. Maybe something like
inReport!.Pageheader.height = 0
Click to expand...


I think the ability to change the height of a section in the
Format event was a new feature in A2002 so if you're using
an earlier version you can't do this.

Me.Section(3).Height = .5 * 1440 ' 1/2 inch

But, that can not reduce the height above the bottom of any
control in the section. This means you would have to set
the invisible controls' Top property to 0 before changing
the section's Height.

However, if you are really trying to set it to zero, then it
would be better to just make the section invisible on all
but the first page:
Me.Section(3).Visible = (Me.Page = 1)
and you would not have to worry about making the controls
invisible.
 
Sorry, I dont think i understand this.

Me.Section(3).Height = .5 * 1440

Can I use Me. in a function and what is section(3)

I am printing a series of letters. If there is only a single sheet then the
page header prints. This ia about 2 inches of labels. If the letter runs to
multiple pages I have turned off the visibility of these items on the second
and subsequent pages but the 2 inch gap remains as i can not see any way of
reducing the size of the page header, there is no can grow/can shrink
property. My module code is: I wondered if i could add something here to
reduce the size of the section

Thanks


Function SetContinuedLabel(InReport As Report)
If InReport.Page <> 1 Then

If (Trim(InReport!checkGroupVal) = Trim(CurrentGroupVal)) Then

InReport!continuedLabel.Visible = False
InReport!continuedLabel1.Visible = False
InReport!continuedLabel2.Visible = False

Else

InReport!continuedLabel.Visible = True
InReport!continuedLabel1.Visible = True
InReport!continuedLabel2.Visible = True
InReport!continuedLabel3.Visible = True
End If

End If
End Function
 
In your function, use the report object (InReport) instead
of Me.

Section(3) is the page header section (check Help for
details).

As I said before, you don't need to mess with the controls'
Visible property or the section's Height if you set its
Visible property to False. OTOH, if you need to have some
of the page header still display, then set the Top property
of the controls you made invisible to 0 before changing the
Height property (are you using a version where that is
allowed?)

I can't really be more specific until you provide more
detailed information.
 
Back
Top