Solved

How to disable printing of a report

Posted on 2002-05-22
24
258 Views
Last Modified: 2008-02-01
Have a report for viewing only, but the users keep on printing it by using Ctrl+P. Is there anyway I can make it a pure view-only report? How?

thanks
0
Comment
Question by:bylj
  • 5
  • 4
  • 3
  • +7
24 Comments
 
LVL 15

Expert Comment

by:ericpete
ID: 7028881
Not that I know of. Ctrl+P is a Windows function, not an Access function.

You might be able to do a redirect so that the report prints to the screen, but it's beyond my capabilities.

Good luck,

ep
0
 
LVL 1

Expert Comment

by:ravl
ID: 7028945
Even if you could disable CTRL+P there would be nothng stopping the user doing a print screen.
0
 

Expert Comment

by:senan072100
ID: 7029116
OK what about trying when Key press event to redirect the key press to a preview mode not printing mode !!! I dont know I have to test it but this a hint for you guys to try also, correct me if i'm wrong,, cheers
Sinan
0
 
LVL 7

Expert Comment

by:Jonathan Kelly
ID: 7029150
or you could maybe use SendKey to pop up a message box stating that the function is not allowed
0
 
LVL 7

Expert Comment

by:Jonathan Kelly
ID: 7029162
sorry i mean AutoKeys.

create a new macro named AutoKeys
make sure View Macro Name is set on
type ^p in Macro Name
set Action = Message Box (or Whatever)


whenever the user hits ctrl+p the message box will load.
0
 

Author Comment

by:bylj
ID: 7029423
Reports dont have a Key_Press_Event.
0
 
LVL 7

Expert Comment

by:Jonathan Kelly
ID: 7029462
you dont need a key press event for my solution
0
 
LVL 9

Expert Comment

by:Volibrawl
ID: 7029664
Just a side observation ..

If your users WANT to print your report so badly, why don't you give them that option?
0
 

Author Comment

by:bylj
ID: 7029864
Datrias:
Your solution would disable Ctrl-P for the whole app. I have certain reports that are printable but couple are NOT to be printed
0
 
LVL 1

Expert Comment

by:aaronkempf
ID: 7029975
there is an event-

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

End Sub

you need to add this:

Cancel = True

THis should do the trick.


0
 

Author Comment

by:bylj
ID: 7032724
tried, it would still print
0
 
LVL 28

Accepted Solution

by:
TextReport earned 50 total points
ID: 7109038
You need to expand a bit on the AutoKeys macro to trap this one and also ensure you remove the print option from the Toolbars and Menubars available to the user.

Create a Macro called AutoKeys and in it include a Macro Name of ^P, Condition of ControlP() and Action of RunCommand with a Run Command or Print. Save the Macro. Now create a new module and paste the follwoing text

Option Compare Database
Option Explicit

Function ControlP()

    If Application.CurrentObjectType = acReport Then
       Select Case Application.CurrentObjectName
           Case "AJTest"
                ControlP = False
           Case Else
                ControlP = True
       End Select
    Else
       ControlP = True
    End If
   
End Function
0
Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

 
LVL 5

Expert Comment

by:Netminder
ID: 7109101
TextReport,

Welcome to Expert's Exchange!

I've rejected your proposed answer for a couple of reasons.

First, by proposing an answer, you move the question from the Open Questions queue to the Locked Questions queue. That makes it much less likely that the Asker will get responses to his question.

Second, you should only propose an answer when you are 100 per cent certain that your response is the ONLY one true answer that will work AND that your response does not duplicate or paraphrase someone else's response.

Again, welcome aboard.

Netminder
CS Moderator
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7226602

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in Community Support that this question is:
 - PAQ'd and pts removed
Please leave any comments here within the
next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER !

Nic;o)
0
 
LVL 15

Expert Comment

by:ericpete
ID: 7227072
Nico,

Isn't "You can't do that" a valid answer?

Best regards,

ep
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7227079
Well, when you "dive" into the API's you should be able to intercept the keystrokes to a window. Not easy, but it should be possible.
Always after making a backup ofcourse, but you should know that ;-)

Nic;o)
0
 
LVL 28

Expert Comment

by:TextReport
ID: 7227374
I still maintain that the answer proposed by me in my first few days on EE is the correct answer, the answer ws not rejected by the person asking the question, this does resolve the question that was originally asked.

EP is incorrect in the statement that you cannnot stop control-p, this is the standard keystroke in windows for teh print dialogue but it is at the control of the application.

Cheers, Andrew
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7227413
I guess it will work, but as bylj wants this to be used selectively, it's not completely suiting his needs...

See:
Comment from bylj
 05/23/2002 08:14AM PST
 
Datrias:
Your solution would disable Ctrl-P for the whole app. I have certain reports that are printable but couple are NOT to be printed
 
Nic;o)
0
 
LVL 28

Expert Comment

by:TextReport
ID: 7227429
Then you include the ones you don't want to print in the case statement along with Case "AJTest".

Cheers, Andrew
0
 
LVL 7

Expert Comment

by:Jonathan Kelly
ID: 7227988
textReport's answer looks good to me
0
 
LVL 7

Expert Comment

by:Jonathan Kelly
ID: 7227990
textReport's answer looks good to me
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7228035
OK, I'll change my recommendation into

 - answered by: TextReport  

Perhaps too much distracted by the answer rejection...

Nic;o)
0
 
LVL 5

Expert Comment

by:Netminder
ID: 7228884
nico,

It happens; the rejection was caused by the request of an Expert (as I recall) who objected to the question being locked. It in no way was intended to reflect on the validity of the comment.

As soon as they give us our tools back, I'll take care of this and the other questions which have had closing recommendations left in them.

Netminder
CS Moderator
0
 
LVL 5

Expert Comment

by:Netminder
ID: 7245563
Per recommendation, force-accepted.

Netminder
CS Moderator
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now