PageHeaderSection_Format doesn't fire when moving backwards?

J

Joseph Greenberg

I am using the following code to adjust my left printer margin a quarter
inch based on odd or even pages:

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
If Me.Page = 1 Then
MoveMargin = 360
ElseIf Me.[Page] Mod 2 = 0 Then
MoveMargin = -360
Else
MoveMargin = 360
End If
ChangeMargins
End Sub

Public Sub ChangeMargins()
Printer.LeftMargin = Printer.LeftMargin + MoveMargin
End Sub

This code works just fine when I preview the report and go forward. However,
when I move backward in the report, the PageHeaderSection_Format event
doesn't fire. How can I get the code to whenever I switch pages? And I will
be printing this report as well.

Thanks.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Report_Close event 2
Access2007 won't run report event procedures (e.g. Detail Format) 2
Page Totals Code error 2
Detail_Format works in Print Preview but Not When Printing 0
Word VBA - Delete text from bulleted paragraphs 1
Need both page headers and a watermark 2
Hiding PageFooterSection on first page only 7
Consecutive Page Numbers across different Reports 0

Top