INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

How To

How do I put the page number on both sides of a book-type landscape report by jimmythegeek
Posted: 6 Feb 02 (Edited 17 Oct 06)

You may need to create a report that prints landscape like a book. You want the left side of the page to say page 1, and the right side of the page to say 2. This is actually pretty simple. There are only 2 steps.

1) Put an unbound text box on each side of the report's page footer. Put the following in the control source of both text boxes:

=GetPageNo()

2) Copy and paste the following function into the code of the report. (If you are unfamiliar with how to do this, while in design veiw, go to View | Code on the menu bar, and paste the code a couple of lines below the Option Explicit).

=======================================
Private Function GetPageNo() As Integer
    Static staPageNo As Integer
    
    If staPageNo > 0 Then
        staPageNo = staPageNo + 1
        GetPageNo = staPageNo
    Else
        GetPageNo = 1
        staPageNo = 1
    End If
End Function
=======================================

Jim Lunde
jimlunde@gmail.com

Back to Microsoft: Access Reports FAQ Index
Back to Microsoft: Access Reports Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close