Report_Close event

J

Joseph Greenberg

When I close my report, some of my code that controls the left margin for
odd-even pages runs many times before the report actually exits - it's in
some kind of loop but does eventually close.

The code in my report is as follows:

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
If Me.Page = 1 Then Exit Sub ' the default margins are set up for the first
page
If Me.Page Mod 2 = 0 Then
With lblPageHeader
.TextAlign = 3
.Left = 4140
End With
With txtPageNumber
.TextAlign = 1
.Left = 0
End With
Else
With lblPageHeader
.TextAlign = 1
.Left = 0
End With
With txtPageNumber
.TextAlign = 3
.Left = 4140
End With
End If
End Sub

Private Sub Report_Close()
Printer.LeftMargin = 720 'if the report has an even number of pages, it
resets the report margin away from the way it was set up originally
End Sub

Private Sub Report_Load()
Printer.LeftMargin = 720 ' ensures the margin is where it is supposed to be
End Sub

The code that seems to be repeat firing is ChangeMargins(). Any ideas why
this might be happening?
 

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

PageHeaderSection_Format doesn't fire when moving backwards? 0
VBA Coding Help for Beginner 0
Making a macro only work on certain files 2
Word macro that can call cells out of Excel for a find and replace 0
Insert VBA Page Break 2
Nothing showing for page of pages 8
Make label visible on pages <> 1 using James H Brooks code 1
Detail_Format works in Print Preview but Not When Printing 0

Top