Hello.
Your help is very much appreciated.
Because of printer limitations, I need to make sure that my report has even number of pages.
Therefore, the code needs to check how many pages the report has, it it's odd number of pages - add blank page at the end.
I tried to put page break control at the details section and to make is visible - invisible - but it doesn't work.
(I named it 'pb' in the code below)
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Page = Pages Then
Me.pb.Visible = True
Else
Me.pb.Visible = False
End If
End Sub
Private Sub Report_Open(Cancel As Integer)
Me.pb.Visible = False
End Sub
Any ideas please?
Thanks
Roy
Your help is very much appreciated.
Because of printer limitations, I need to make sure that my report has even number of pages.
Therefore, the code needs to check how many pages the report has, it it's odd number of pages - add blank page at the end.
I tried to put page break control at the details section and to make is visible - invisible - but it doesn't work.
(I named it 'pb' in the code below)
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Page = Pages Then
Me.pb.Visible = True
Else
Me.pb.Visible = False
End If
End Sub
Private Sub Report_Open(Cancel As Integer)
Me.pb.Visible = False
End Sub
Any ideas please?
Thanks
Roy