Code pour imprimer

[agir2]

Bonjour !

Voici mon prob...

Dans ma macro je demande d'imprimer mon fichier à l'aide de cette imprimante qui est en réseau.
Certain de mes utilisateur vois la macro bloquer a/c certains sont sur le "Ne03" et d'autres sur "Ne02"

Comment puis-je modifier ce code afin que tous le monde puissent imprimer via cette commande ?

Application.ActivePrinter = "\\pserv\Q598 sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\pserv\Q598 sur Ne03:", Collate:=False

MERCI !😕

 

[PMO2]

Re : Code pour imprimer

Bonjour,

Peut-être en utilisant une gestion d'erreur comme dans l'exemple ci-dessous

Const IMPR1 As String = "\\pserv\Q598 sur Ne03:"
Const IMPR2 As String = "\\pserv\Q598 sur Ne02:"

Sub zz()

On Error Resume Next
Application.ActivePrinter = IMPR1
If Err = 0 Then
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
      ActivePrinter:=IMPR1, Collate:=False
Else
  Application.ActivePrinter = IMPR2
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
    ActivePrinter:=IMPR2, Collate:=False
  Err.Clear
End If
On Error GoTo 0

End Sub

Cordialement.

PMO
Patrick Morange