Hi I am ran into a snag on one my of reports. I have a batch report packet by record that I do on a daily basis. The problem I have is one of the reports in the packet will not print dual sided properly. The report in question has 3 pages leaving the back of the third page blank. When I printed the said report it printed all the records in order the way I liked but it attached the first page of the next record on the back of the previous records 3rd page . So the first thing I did was extended out the footer section just enough so it would add a fourth page. That worked but now I have the header and footer on it which I want to hide. The following is the portion of code that works for hiding the header on the first page of each record. This is fine I want it to do that but what I need it to do is in addition to that is to hide the header and footer on the fourth page of each record for that specific report. it currently works for 3 pages I need it to encompass 4 pages now. It's probably an easy fix but since I am not that well expirenced with vba I need another set of eyes on this. Thanks in advance
Private Sub Report_Page()
If Me.Page Mod 3 = 0 Then
Me.PageHeaderSection.Visible = False
Me.PageFooterSection.Visible = True
Else
Me.PageHeaderSection.Visible = True
Me.PageFooterSection.Visible = True
End If
End Sub
Private Sub Report_Page()
If Me.Page Mod 3 = 0 Then
Me.PageHeaderSection.Visible = False
Me.PageFooterSection.Visible = True
Else
Me.PageHeaderSection.Visible = True
Me.PageFooterSection.Visible = True
End If
End Sub