G
George Heimovics
Reviewing Lydia's post on 7/2/2008 I have a similar situation, but I would
like each section to start on an even page. For Book Printing, this would
be the left side. I have tried to use the same technique, but it is not
working.
Private mbWasOddPage As Boolean
Private Sub GroupHeader2_Format(Cancel As Integer, FormatCount As Integer)
mbWasOddPage = Not (Me.Page Mod -2)
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Me.Section("GroupHeader2").Visible = mbWasOddPage
End Sub
like each section to start on an even page. For Book Printing, this would
be the left side. I have tried to use the same technique, but it is not
working.
Private mbWasOddPage As Boolean
Private Sub GroupHeader2_Format(Cancel As Integer, FormatCount As Integer)
mbWasOddPage = Not (Me.Page Mod -2)
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Me.Section("GroupHeader2").Visible = mbWasOddPage
End Sub