Active printer

[Marijan Glavac]

Hi,

I have trouble with deteremine fax printer on network.
My code is :
Application.ActivePrinter ="\\server\Fax on Ne03"
Problem is that from time to time my fax printer chnage in to ="\\server\Fax
on Ne06" or ="\\server\Fax on Nexx"
Printer has been shared and the share name is "FAX"
But when I wrote :
Application.ActivePrinter ="FAX"
I got error :
Run-tem error '1004'
Method ' ActivePrinter' of object '_Appliction' failed.

Please help.

Marijan Glavaè

 

[Jim Rech]

You have to trap the error and try again. an example:

Sub SetFax()
On Error Resume Next
Err.Clear
Application.ActivePrinter = "\\server\Fax on Ne03"
If Err.Number <> 0 Then
Err.Clear
Application.ActivePrinter = "\\server\Fax on Ne06"
If Err.Number <> 0 Then
Err.Clear
Application.ActivePrinter = "\\server\Fax on NeXX"
If Err.Number <> 0 Then MsgBox "Cannot set FAX"
End If
End If
End Sub

--
Jim Rech
Excel MVP
| Hi,
|
| I have trouble with deteremine fax printer on network.
| My code is :
| Application.ActivePrinter ="\\server\Fax on Ne03"
| Problem is that from time to time my fax printer chnage in to
="\\server\Fax
| on Ne06" or ="\\server\Fax on Nexx"
| Printer has been shared and the share name is "FAX"
| But when I wrote :
| Application.ActivePrinter ="FAX"
| I got error :
| Run-tem error '1004'
| Method ' ActivePrinter' of object '_Appliction' failed.
|
| Please help.
|
| Marijan Glavaè
|
|
|