different odd and even page

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

Guest

Hi, I have to print a report with a different odd and even page ie. photo on
left outside of page on page 1, photo on right outside of page 2. It is an 80
page doc that needs to be bound e.g wire binding so will need a large gutter
on the inside of the page. Any help most greatfully accepted.
--
helpteach

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/com...55360bb186&dg=microsoft.public.access.reports
 
The only way I know of that MIGHT work is to move the controls around based on
whether you are on a even or odd page in the Format phase and use an offset
constant.  I say might, because I haven't tried this and I am speculating.
You would have to do that for each section of the report.
In the format details section for Page 1 move all the controls left by your
factor by setting the controls left property to itself minus the offset.  On
page 2 move all the controls right by setting the controls left property to
itself plus the offset.
Your controls would start (in design mode) in the position for page 2.  
 
I just checked my code library and found this from an old post by ?FredG???

In the Code Window Declarations section, write:

Option Compare Database
Option Explicit
Dim MoveMargin As Integer
====
Code the Report Header Format event:

Private Sub ReportHeader_Format(Cancel As Integer, _
FormatCount As Integer)
MoveMargin = MoveMargin * -1
ChangeMargins
End Sub
=======

Code the Page Header Format event:

Private Sub PageHeader_Format(Cancel As Integer, _
FormatCount As Integer)
If Me.Page = 1 Then
MoveMargin = 0
ElseIf Me.[Page] Mod 2 = 0 Then
MoveMargin = 1440
Else
MoveMargin = -1440
End If
ChangeMargins
End Sub
=========
Add a new Sub Procedure to the code window:

Public Sub ChangeMargins()
Dim C As Control
For Each C In Me.Controls
C.Left = C.Left + MoveMargin
Next C
End Sub
====

Change the value of MoveMargin as needed.
1440 = 1 inch.
Make sure there is enough room to the right of the right-most controls to allow
for the movement towards the right.
 
Hi, I have to print a report with a different odd and even page ie. photo on
left outside of page on page 1, photo on right outside of page 2. It is an 80
page doc that needs to be bound e.g wire binding so will need a large gutter
on the inside of the page. Any help most greatfully accepted.
Click to expand...
Please educate me. What is "wire binding"?

Just a wizard prodder.
Chuck
--
 
I assume that means using a spiral wire binding to hold the papers together. Or
it could use one of the other methods of binding a group of papers together such
as the plastic edge binders.
 
Thanks for thr reply John.

Sometimes the *only* solution to a problem is to write code. Since I don't
write code, I look to see if there is another way. This time there might be
another way, but not for duplex printing and not if many copies of the report
must be printed, then it's back to writing code.. Make two reports. One with
the photo on the left for odd numbered pages and the other with the photo on
the right for the even numbered pages. Print all the odd pages, flip the
paper and print all the even pages.

Just a wizard prodder
Chuck
 
Back
Top