How to place page numbering in a middle of page?

[bdmir]

Hi All,

I know page numbers must be always in a report's page footer or page header section, but I need those numbers in a middle of page, and on every page. Is that possible? Thanks in advance

[TheSmileyCoder]

I dont really think so, since the control has to be some area (Header/footer, or detail, yes I do believe the page control can be in the detail section as well, but I haven't tried).

Problem with putting it in the detail section is that it would be visible within every detail, and that also does not place the pagenumber in the middle of the screen.

Maybe if you told WHY you need it in the middle of the screen we could assist better.

[bdmir]

Currently we are putting in report footer small row which contains:number of pages, pages in envelope and some id's. Our clients want to have full A4 format white area for their data to put on, so some clients don't want to have any such rows(because it may increase number of pages). There is a padding left 2cm on each page, which is white area, there we should put that info in vertical position some how. Know what I mean?

[TheSmileyCoder]

Do you have more then 1 detail per page?

[bdmir]

Yes, more than one. If only one it would be easy :)

[TheSmileyCoder]

Does the detail contain any controls that can grow/shrink?

[TheSmileyCoder]

This is the simplest approach I can come up with.
1) Place a label on your detail event. In my example I just named it lbl_Example, though lbl_Page probably would have been a better name :P

2) Add this code to your reports module:

Private Const lngPageTop As Long = 7400  'Aprox placement of middle of page
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim lngTop As Long
    lngTop = Me.Top
    'Assuming that a detail is no more then 2000 twips height
    'Problem here is that me.height is the height BEFORE controls grow.
    If Me.Top > lngPageTop - Me.Height And Me.Top < lngPageTop Then
        Me.lbl_Example.Caption = Page
        Me.lbl_Example.Visible = True
 
        'Reposition label to same position each time
        Me.lbl_Example.Top = lngPageTop - Me.Top
 
    Else
 
        Me.lbl_Example.Visible = False
    End If
 
 
End Sub

Basicly the code tries to estimate whether or not the "middle" of page will be contained within the current detail, and if so, reposition and show the label.
The problem with this approach is that Me.Height is the details "design" height, it doesn't take growing controls into account. If you want to modify it to include growing controls, the best you can do is to use Stephen Levans code to guestimate the control height. I have used it quite successfully to force page brakes at specific locations in my reports, by guesstimating whether or not the next item would be able to fit on the page or not.

[bdmir]

Code is nice, but what if 1 group may have 4 pages, will that label be on each page or just on a first one? I guess I have too look at Stephen Lebans tricks

[TheSmileyCoder]

Hmm...didn't think of that. If a detail goes across more then 1 page, I don't think my suggestion would work.

[bdmir]

Thanks for the quick replies. So I guess it is not possible. Right?

[TheSmileyCoder]

I dont usually go so far as to say that things are not possible. But I would say its close.

It would be quite cumbersome to deal with all the special cases, and to be honest it doesn't seem worth the hazzle.

[TheSmileyCoder]

OK, I have another approach (Which is why I usually don't say that things are impossible.)

Here is what I did:
In the Page event of the report, I used the following code:

Private Sub Report_Page()
    'Store old font values
        Dim strCurrentFont As String
        Dim intCurrentFontSize As Integer
        Dim intCurrentScaleMode As Integer
 
        strCurrentFont = Me.FontName
        intCurrentFontSize = Me.FontSize
        intCurrentScaleMode = Me.ScaleMode
 
    'Set font values for our pagelabel
        Me.FontName = "Times New Roman"
        Me.ScaleMode = 3
        Me.FontSize = 16
 
    'Print to page
        Me.CurrentX = 50
        Me.CurrentY = 3000
        Me.Print Page()
 
    'Reset to old values
        Me.FontName = strCurrentFont
        Me.FontSize = intCurrentFontSize
        Me.ScaleMode = intCurrentScaleMode
End Sub

This will print the page number on the page, at the location specified by CurrentX and CurrentY.

I have never used the page event before, so I honestly don't know if there are any issues/problems with this method, but my admittedly short testing didn't reveal any issues.

[bdmir]

Great! That is what I need. Never thought about "Me.Print Page()" Thanks for the help.

[bdmir]

Is it possible to print that in vertical orientation?

[TheSmileyCoder]

You want the label turned 90 degrees? Or to be printed on a report that is turned?

[bdmir]

Just a label 90 degrees. That will be enough :)

[TheSmileyCoder]

Nothing springs to mind. Access must have some method for printing the vertical labels you can make, but I don't know how to find/use it.

[bdmir]

I found something, but it works only for forms. How about the reports? Here is a link

http://www.xtremevbtalk.com/showthread.php?t=205165

[TheSmileyCoder]

I honestly don't know of hand (nor after an hour spent), how to modify it for reports.