Cancel Print

  • Thread starter Thread starter AHopper
  • Start date Start date
A

AHopper

From a form I open a dialog box which is used to enter the
criteria to print a report. When the "Print" command
button is clicked the report begins to print.
Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName, acNormal, , "[JobNumber]=
[Forms]![AnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True

The report contains code in the On Print event of both the
header and detail section. The report prints correctly,
however, there is a message box which appears(I believe it
is part of Microsoft Access print process because I did
not create it). The message indicates the print status (1
of 10 etc.) and it has a Cancel button. If the Cancel
button is pressed the application freezes and has to be
closed. I do not mind having the message box or the cancel
option, however, I would like to have it work properly so
the application does not freeze. If it will not work
properly, is there a way to have it not appear?

Thank you for your help

Allan
 
You currently have Hourglass=True and Echo=False. When you cancel the print,
there is probably an error generated in the DoCmd.OpenReport line about the
action being canceled. Since you have things "locked up" as described above,
you don't see the error message; so, it just sits there waiting for you to
respond to something you can't see. You need to have an error handler. In
the error handler, reset the Hourglass and Echo then pop-up a message box
with the error message or, in this case, since you know what generated the
error and everything is fine, check for the error number and if that is the
number do a Resume Next or whatever you want to do if the print is canceled.

To check to see if this is the problem, comment out the Hourglass and Echo
lines and see what happens.
 
Wayne,
I did what you suggested and I did get a Microsoft Access
message box "The OpenReport action was canceled."

As I mentioned in my original post I have code in the
OnPrint event of the header and detail section of the
report and there is an error handler in the OnClick event
of the "Print" command button. I left in the hourglass and
echo to show how they are placed in the code.

On Error GoTo Err_PrintAnalysisRevisedReport_Click

Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName, acNormal, , "[JobNumber]=
[Forms]![SpoilageAnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True
End With
Exit_PrintAnalysisRevisedReport_Click:
Exit Sub

Err_PrintAnalysisRevisedReport_Click:
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

Would the following be an acceptable alternative to
leaving out the Hourglass and Echo?

Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

Thank you very much for your help.

Allan
-----Original Message-----
You currently have Hourglass=True and Echo=False. When you cancel the print,
there is probably an error generated in the
Click to expand...
DoCmd.OpenReport line about the
action being canceled. Since you have things "locked up" as described above,
you don't see the error message; so, it just sits there waiting for you to
respond to something you can't see. You need to have an error handler. In
the error handler, reset the Hourglass and Echo then pop- up a message box
with the error message or, in this case, since you know what generated the
error and everything is fine, check for the error number and if that is the
number do a Resume Next or whatever you want to do if the print is canceled.

To check to see if this is the problem, comment out the Hourglass and Echo
lines and see what happens.

--
Wayne Morgan
Microsoft Access MVP


From a form I open a dialog box which is used to enter the
criteria to print a report. When the "Print" command
button is clicked the report begins to print.
Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName, acNormal, , "[JobNumber] =
[Forms]![AnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True

The report contains code in the On Print event of both the
header and detail section. The report prints correctly,
however, there is a message box which appears(I believe it
is part of Microsoft Access print process because I did
not create it). The message indicates the print status (1
of 10 etc.) and it has a Cancel button. If the Cancel
button is pressed the application freezes and has to be
closed. I do not mind having the message box or the cancel
option, however, I would like to have it work properly so
the application does not freeze. If it will not work
properly, is there a way to have it not appear?

Thank you for your help

Allan
Click to expand...


.
Click to expand...
 
Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub
Click to expand...

This looks good, but I would add one more thing. You probably don't really
care about this error, since you told it to cancel you really don't need
Access telling you that it was canceled.

Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
If Err.Number = 1234 Then
'This is the Cancel error so just keep going
Resume Next 'or wherever your prefer to resume
End If
MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

This will keep the error message from popping up if it is the expected
error, if not, then you'll still get the message box. I don't remember the
error number right off-hand, but if you add that to your message box you can
find out what it is. Just use that number instead of 1234.

--
Wayne Morgan
MS Access MVP


AHopper said:
Wayne,
I did what you suggested and I did get a Microsoft Access
message box "The OpenReport action was canceled."

As I mentioned in my original post I have code in the
OnPrint event of the header and detail section of the
report and there is an error handler in the OnClick event
of the "Print" command button. I left in the hourglass and
echo to show how they are placed in the code.

On Error GoTo Err_PrintAnalysisRevisedReport_Click

Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName, acNormal, , "[JobNumber]=
[Forms]![SpoilageAnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True
End With
Exit_PrintAnalysisRevisedReport_Click:
Exit Sub

Err_PrintAnalysisRevisedReport_Click:
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

Would the following be an acceptable alternative to
leaving out the Hourglass and Echo?

Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

Thank you very much for your help.

Allan
-----Original Message-----
You currently have Hourglass=True and Echo=False. When you cancel the print,
there is probably an error generated in the
Click to expand...
DoCmd.OpenReport line about the
action being canceled. Since you have things "locked up" as described above,
you don't see the error message; so, it just sits there waiting for you to
respond to something you can't see. You need to have an error handler. In
the error handler, reset the Hourglass and Echo then pop- up a message box
with the error message or, in this case, since you know what generated the
error and everything is fine, check for the error number and if that is the
number do a Resume Next or whatever you want to do if the print is canceled.

To check to see if this is the problem, comment out the Hourglass and Echo
lines and see what happens.

--
Wayne Morgan
Microsoft Access MVP


From a form I open a dialog box which is used to enter the
criteria to print a report. When the "Print" command
button is clicked the report begins to print.
Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName, acNormal, , "[JobNumber] =
[Forms]![AnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True

The report contains code in the On Print event of both the
header and detail section. The report prints correctly,
however, there is a message box which appears(I believe it
is part of Microsoft Access print process because I did
not create it). The message indicates the print status (1
of 10 etc.) and it has a Cancel button. If the Cancel
button is pressed the application freezes and has to be
closed. I do not mind having the message box or the cancel
option, however, I would like to have it work properly so
the application does not freeze. If it will not work
properly, is there a way to have it not appear?

Thank you for your help

Allan
Click to expand...


.
Click to expand...
Click to expand...
 
Wayne,
Thank you very much for your time and the valuable
information.

Allan
-----Original Message-----
Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub
Click to expand...

This looks good, but I would add one more thing. You probably don't really
care about this error, since you told it to cancel you really don't need
Access telling you that it was canceled.

Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
If Err.Number = 1234 Then
'This is the Cancel error so just keep going
Resume Next 'or wherever your prefer to resume
End If
MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

This will keep the error message from popping up if it is the expected
error, if not, then you'll still get the message box. I don't remember the
error number right off-hand, but if you add that to your message box you can
find out what it is. Just use that number instead of 1234.

--
Wayne Morgan
MS Access MVP


Wayne,
I did what you suggested and I did get a Microsoft Access
message box "The OpenReport action was canceled."

As I mentioned in my original post I have code in the
OnPrint event of the header and detail section of the
report and there is an error handler in the OnClick event
of the "Print" command button. I left in the hourglass and
echo to show how they are placed in the code.

On Error GoTo Err_PrintAnalysisRevisedReport_Click

Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName, acNormal, , "[JobNumber] =
[Forms]![SpoilageAnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True
End With
Exit_PrintAnalysisRevisedReport_Click:
Exit Sub

Err_PrintAnalysisRevisedReport_Click:
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

Would the following be an acceptable alternative to
leaving out the Hourglass and Echo?

Err_PrintAnalysisRevisedReport_Click:
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox Err.Description
Resume Exit_PrintAnalysisRevisedReport_Click
End Sub

Thank you very much for your help.

Allan
-----Original Message-----
You currently have Hourglass=True and Echo=False. When you cancel the print,
there is probably an error generated in the
Click to expand...
DoCmd.OpenReport line about the
action being canceled. Since you have things "locked
Click to expand...
up"
as described above,
you don't see the error message; so, it just sits there waiting for you to
respond to something you can't see. You need to have an error handler. In
the error handler, reset the Hourglass and Echo then
Click to expand...
pop-
up a message box
with the error message or, in this case, since you know what generated the
error and everything is fine, check for the error
Click to expand...
number
and if that is the
number do a Resume Next or whatever you want to do if
Click to expand...
the
print is canceled.
To check to see if this is the problem, comment out the Hourglass and Echo
lines and see what happens.

--
Wayne Morgan
Microsoft Access MVP


"AHopper" <[email protected]> wrote
Click to expand...
in
message
From a form I open a dialog box which is used to
Click to expand...
enter
the
criteria to print a report. When the "Print" command
button is clicked the report begins to print.
Dim stDocName As String

stDocName = "AnalysisRevised"
DoCmd.Hourglass True
DoCmd.Echo False
DoCmd.OpenReport stDocName,
Click to expand...
acNormal, , "[JobNumber]
=
[Forms]![AnalysisDialogBox]![JobNumber]"
DoCmd.Hourglass False
DoCmd.Echo True

The report contains code in the On Print event of
Click to expand...
both
the
header and detail section. The report prints correctly,
however, there is a message box which appears(I
Click to expand...
believe
it
is part of Microsoft Access print process because I did
not create it). The message indicates the print
Click to expand...
status
(1
of 10 etc.) and it has a Cancel button. If the Cancel
button is pressed the application freezes and has to be
closed. I do not mind having the message box or the cancel
option, however, I would like to have it work
Click to expand...
properly
so
the application does not freeze. If it will not work
properly, is there a way to have it not appear?

Thank you for your help

Allan





.
Click to expand...
Click to expand...


.
Click to expand...
 
Back
Top