Sélection d'une imprimante sur un server

Version imprimable

Bonjour,

J'ai créé une macro me permettant d'imprimer directement un onglet sur une des imprimantes de notre société. Le pbl c'est que cette imprimante est en réseau et que d'un poste à l'autre, le chemin réseau n'est pas le même.

j'ai donc écrit le code comme suit, mais une erreur survient tout de même à l'exécution.
Code:

1 2 3 4 5 6 Application.ActivePrinter = "\\pardat2\Xerox 4110 PCL 6 on Ne02:" On Error Resume Next Application.ActivePrinter = "\\pardat2\Xerox 4110 PCL 6 on Ne03:" On Error Resume Next Cells(i + 1, 3) = "OK" Worksheets("Feuille de Travail").PrintOut Copies:=1
Comment peut-on tester le n° du server ou éviter les messages d'erreur ?

Merci d'avance,
Phil....

Salut
C'était pour une imprimante Pdf , donc à adapter à ton cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Function Imprimante_AdobePDF() As Boolean
Dim i As Long
    ' 11 imprimantes réseau
    Imprimante_AdobePDF = False
    For i = 0 To 10
        If i < 10 Then
            sNomPortReseau = "Adobe PDF sur Ne0" & i & ":"
        Else
            sNomPortReseau = "Adobe PDF sur Ne" & i & ":"
        End If
        On Error Resume Next
        Application.ActivePrinter = sNomPortReseau
        If ActivePrinter = sNomPortReseau Then
            Imprimante_AdobePDF = True
            Exit For
        End If
    Next i
End Function
 
....
    PrinterDefault = Application.ActivePrinter
    If Imprimante_AdobePDF Then
        Application.ActivePrinter = sNomPortReseau
    Else
        MsgBox "Pas d'imprimante Adobe PDF sur NeXY ", vbOKOnly+vbCritical, "Achtung"
        Exit Sub
    End If
....
    Application.ActivePrinter = PrinterDefault

21/01/2009, 19h29
TaleMaker

heu.... le 1er message était sympa en fait, ça marche bien maintenant (g bien aimé le petit message de menace au cas où) mais du coup, le nouveau m'intéresse moins.... ct vraiment un code pour sélectionner une imprimante physique et non une imprimante pdf.

mais merci en tout cas....