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

Hi Basta,

Put the following statement before the first line of code:

On Error Resume Next

This should help

"Basta1980" <(E-Mail Removed)> wrote in message
news:FCE1115E-228D-4718-9BB8-(E-Mail Removed)...
> 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" 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