Decline Save
 

Hi,

I have a PrintToFile statement telling Excel to save a worksheets as Tiff
document. When the procedure is triggered a pop-up box appears in order to
let the user define filename. This works fine. But when the user doens't
wan't to save a copy and simply presses 'cancel' he/she gets a runtime error
1004 Method PrintOut of object Worksheet failed. How do I programme the
procedure in order to not show the error.

Sheet1.PrintOut ActivePrinter:="Microsoft Office Document Image Writer", _
PrintToFile:=True, _
PrToFileName:="\\Nlmtr-wifs001\CSBUSSE\Data
Services\SSV\Netwerkklachten\Overige Info\weekoverzichtenbrieven\Status
Workload SSV " & _
DatePart("yyyy", ThisMonday - 1) & " week " &
DatePart("ww", ThisMonday - 1, vbMonday, vbUseSystem) & ".mdi"

Gr.

Basta

Decline Save
 

Use some error handling something like:

Code:
--------------------

On Error Goto Nxt
Sheet1.PrintOut ActivePrinter:="Microsoft Office Document Image Writer", _
PrintToFile:=True, _
PrToFileName:="\\Nlmtr-wifs001\CSBUSSE\Data
Services\SSV\Netwerkklachten\Overige Info\weekoverzichtenbrieven\Status
Workload SSV " & _
DatePart("yyyy", ThisMonday - 1) & " week " &
DatePart("ww", ThisMonday - 1, vbMonday, vbUseSystem) & ".mdi"
Nxt:
'rest of your code

--------------------

Basta1980;367553 Wrote:
Hi,

I have a PrintToFile statement telling Excel to save a worksheets as
Tiff
document. When the procedure is triggered a pop-up box appears in order
to
let the user define filename. This works fine. But when the user
doens't
wan't to save a copy and simply presses 'cancel' he/she gets a runtime
error
1004 Method PrintOut of object Worksheet failed. How do I programme the
procedure in order to not show the error.


Code:
--------------------

Sheet1.PrintOut ActivePrinter:="Microsoft Office Document Image Writer", _
PrintToFile:=True, _
PrToFileName:="\\Nlmtr-wifs001\CSBUSSE\Data
Services\SSV\Netwerkklachten\Overige Info\weekoverzichtenbrieven\Status
Workload SSV " & _
DatePart("yyyy", ThisMonday - 1) & " week " &
DatePart("ww", ThisMonday - 1, vbMonday, vbUseSystem) & ".mdi"

--------------------

Gr.

Basta


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=102966

Decline Save
 

Hi Basta,

Put the following statement before the first line of code:

On Error Resume Next

This should help

"Basta1980" wrote in message
...
Hi,

I have a PrintToFile statement telling Excel to save a worksheets as Tiff
document. When the procedure is triggered a pop-up box appears in order to
let the user define filename. This works fine. But when the user doens't
wan't to save a copy and simply presses 'cancel' he/she gets a runtime
error
1004 Method PrintOut of object Worksheet failed. How do I programme the
procedure in order to not show the error.

Sheet1.PrintOut ActivePrinter:="Microsoft Office Document Image Writer", _
PrintToFile:=True, _
PrToFileName:="\\Nlmtr-wifs001\CSBUSSE\Data
Services\SSV\Netwerkklachten\Overige Info\weekoverzichtenbrieven\Status
Workload SSV " & _
DatePart("yyyy", ThisMonday - 1) & " week " &
DatePart("ww", ThisMonday - 1, vbMonday, vbUseSystem) & ".mdi"

Gr.

Basta

Decline Save
 

On error resume next is a bad idea, it bypasses all errors.Howard31;367589 Wrote:
Hi Basta,

Put the following statement before the first line of code:

On Error Resume Next

This should help

"Basta1980" wrote in message
...
Hi,

I have a PrintToFile statement telling Excel to save a worksheets as
Tiff
document. When the procedure is triggered a pop-up box appears in
order to
let the user define filename. This works fine. But when the user
doens't
wan't to save a copy and simply presses 'cancel' he/she gets a
runtime
error
1004 Method PrintOut of object Worksheet failed. How do I programme
the
procedure in order to not show the error.

Sheet1.PrintOut ActivePrinter:="Microsoft Office Document Image
Writer", _
PrintToFile:=True, _
PrToFileName:="\\Nlmtr-wifs001\CSBUSSE\Data
Services\SSV\Netwerkklachten\Overige
Info\weekoverzichtenbrieven\Status
Workload SSV " & _
DatePart("yyyy", ThisMonday - 1) & " week " &
DatePart("ww", ThisMonday - 1, vbMonday, vbUseSystem) & ".mdi"

Gr.

Basta


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=102966

Decline Save
 

"Simon Lloyd" wrote:


On error resume next is a bad idea, it bypasses all errors.

??

On Error Resume Next
'....
On Error GoTo 0

it would be nice to see the code more ...
the error handling may be unnecessary

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html