XL 2013 Impression sur imprimante réseau

[Jacques25]

Bonjour à tous,

j'ai fait quelques recherche depuis ce matin et quelques soit le sujet et/ou le site j'en reviens toujours au même, à savoir un code qui ne marche pas.

Mon soucis, dans mon code je souhaite "simplement" enfin je croyais pouvoir imprimer une feuille sur l'imprimante par défaut de l'utilisateur. J'ai donc essayé :
ActiveSheet.Range("A1:O44").PrintOut
Ca marche mais quand juste avant j'ai fait une impression PDF il m'envoit sur l'imprimante PDF Creator.

Dans 95% des cas ce sera toujours la même imprimante qui sera utilisée donc je me suis dit autant indiquer le nom de l'imprimante j'ai donc essayé :
ActiveSheet.Range("A1:O44").PrintOut ActivePrinter:="Mon imprimante"
Le résultat est le même, pouvez vous m'aider.

L'imprimante est bien installée sur mon PC, ça marche en impression direct, ça marche si auparavant je n'ai pas imprimé en PDF mais sinon je bloque.

Merci à tous de l'aide que vous pourrez m'apporter.

@Plus
Jack

 

[Jacques25]

Bonjour à tous,

Juste une petite relance au cas ou...

Bonne journée à tous.

Jack

 

[Modeste geedee]

Bonsour®
il serait plus simple de recenser une liste des imprimantes du réseau
et designer alors l'imprimante voulue (il n'y en a pas tant que çà dans "UN bureau"...)

Sub ChangerPrinter()
Dim oldprinter  As String, reponse
oldprinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
reponse = MsgBox("Imprimante précedente : " & oldprinter & Chr(10) & "Imprimante actuelle : " & Application.ActivePrinter, vbOKCancel + vbQuestion + vbDefaultButton2, "Changer d'imprimante ")
If reponse <> vbOK Then Application.ActivePrinter = oldprinter
End Sub

une fois definitivement identifiée l'imprimante voulue :
mettre dans votre code l'instruction suivante :
Application.ActivePrinter = "\\CheminReseau\IMPxxx sur Ne??:"
termes à adapter selon identification précédente

 

[Jacques25]

Salut Modeste Geedee,

Merci pour ta réponse je vais adapter à mon cas, si toutefois j'ai des soucis je te redirai.

Bonne journée
@ plus

Jack

 

[Jacques25]

Rebonjour,

C'est bon ça marche merci, avec ton code j'ai réussi à mettre le bon nom à l'imprimante.

@ plus

Jack