Force Report *Header* to Bottom of First Page

[WinsomeMinotaur]

Hi all. I actually found a question with a similar title, but it turned out to be mis-titled (they actually wanted to manipulate the report footer, not header). So, I really AM talking about the header. I have a page footer already, but I have a bunch of checkboxes and stuff I want to included at the bottom of the first page only. I *would* just place it on the page itself, but there are expanding text fields in the detail section that may push my checkboxes onto the second page, and they MUST stay at the bottom of the first page. I thought there might be a simple way to force the report header to the bottom of the page and my problem would be solved (or I guess force the report footer onto the first page, but that sounds more difficult). Any ideas would be welcome!

 

[dhookom]

Have you considered placing your expanding text fields in a subreport and sticking you bunch of checkboxes and stuff in the detail or some other section?

Duane
Hook'D on Access
MS Access MVP

 

[WinsomeMinotaur]

Unfortunately this needs to be printed, so having the text fields in a subform will not help. That is to say, keeping the text contained is not an option, as it all needs to be printed. A single text box might fill up most of the first page and spill onto the second, which is fine as long I keep the section I need at the bottom of the first page for signatures and check boxes.

 

[dhookom]

I didn't mention anything about "subform" or not printing stuff. I simply suggested that you might consider using a subreport to display some of the information within a report in order to meet your requirements.

You can also use code to dynamically print information in a report. For instance, create a blank report with a detail section height of at least 6". Then add code like:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim intI
    Me.CurrentX = 0  'left margin
    Me.CurrentY = 1440 * 5 'five inches from top of section
    For intI = 1 To 6
        Me.CurrentY = 1440 * 5
        Me.FontName = "wingdings"
        Me.Print "  þ"
        Me.CurrentY = 1440 * 5
        Me.FontName = "Arial"
        Me.Print " " & MonthName(intI)
    Next
    Me.CurrentX = 0
    For intI = 7 To 12
        Me.CurrentY = 1440 * 5.3
        Me.FontName = "wingdings"
        Me.Print "  þ"
        Me.CurrentY = 1440 * 5.3
        Me.FontName = "Arial"
        Me.Print " " & MonthName(intI)
    Next
End Sub

Then view this in print preview to see the month names and check boxes.


Duane
Hook'D on Access
MS Access MVP