Suppress printing

In my report, I give the User instructions as to how to enlarge or reduce the
size of the report and how to exit the report - BUT - I do not want these
texts to appear when the report is printed.

How can I suppress these text boxes in the Footer section, when printing the
report ?

Appreciate any help
--
Glynn

Are you allowing your users to go into the design view of the reports to make
modifications? While I don't think this is a good idea, you could set the
instructions to Visible: No. They will still show in design view.
--
Duane Hookom
Microsoft Access MVP


"Glynn" wrote:

In my report, I give the User instructions as to how to enlarge or reduce the
size of the report and how to exit the report - BUT - I do not want these
texts to appear when the report is printed.

How can I suppress these text boxes in the Footer section, when printing the
report ?

Appreciate any help
--
Glynn

On Fri, 16 Jan 2009 22:33:01 -0800, Glynn wrote:

In my report, I give the User instructions as to how to enlarge or reduce the
size of the report and how to exit the report - BUT - I do not want these
texts to appear when the report is printed.

How can I suppress these text boxes in the Footer section, when printing the
report ?

Appreciate any help

You can take advantage of the fact that the Report Activate only fires
when the report is previewed to determine if it is being printed.

Let's assume the label you wish to hide is named "lblDontShow".
Code the report's events as follows:

Comment out (or uncomment) the proper intPreview lines depending upon
whether or not you have a control on the report computing [Pages].

Option Compare Database
Option Explicit
Dim intPreview As Integer

Private Sub PageFooter_Format(Cancel As Integer, FormatCount As
Integer)
If intPreview = 1 Then ' Pages is used
' If intPreview -1 Then ' Pages not used
Me.[lblDontShow].Visible = False
Else
Me.[lblDontShow].Visible = True
End If
End Sub
--------------------------
Private Sub Report_Activate()
intPreview = -2
End Sub
---------------------------
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
intPreview = intPreview + 1
End Sub




--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail