Problème de N° d'imprimante réseau selon l'installation sur les PC

[Christian0258]

Bonjour à tout le forum,

Mon problème est résumé dans l'intitulé, ci-dessus, en effet lorsque je vais sur tel ou tel PC, dans mon bureau, l'ordre d'installation n'étant pas le même...la macro ne fonctionne plus...

voir fichier...

Merci pour le temps que vous voudrez bien m'accporder.

Bien à vous,
Christian

 

[JCGL]

Re : Problème de N° d'imprimante réseau selon l'installation sur les PC

Bonjour à tous,
Salut Christian,

Peux-tu essayer :

Option Explicit

Sub Impression()
    Dim X As Integer
    For X = 10 To 60
        Range("C5:DK52").Select
        On Error Resume Next
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
                                             "\\srv-impression\IUCPCFROID1 sur Ne" & X & ":", Collate:=True
    Next X
    Range("D1").Select
End Sub

A + à tous

Édition : Ajout de la zone d'impression...

 

[Christian0258]

Re : Problème de N° d'imprimante réseau selon l'installation sur les PC

Re, le forum, JCGL,

Salut Jean-Claude, merci pour ta solution. Je vais essayer ça...et te tiens au courant.

Dis-moi, pour la zone d'impression, je la place où dans le code ?.

Bien à toi,

Christian

 

[JCGL]

Re : Problème de N° d'imprimante réseau selon l'installation sur les PC

Bonjour à tous,

J'ai édité mon message

A++
A + à tous

 

[Christian0258]

Re : Problème de N° d'imprimante réseau selon l'installation sur les PC

Re, le forum, JCGL,

Merci, Jean-Claude, je te remercie, à nouveau pour ton aide.
J'ai fait comme cela est-ce que c'est bon ?

Sub ImprimVdeMidiSoir()
Dim X As Integer
For X = 10 To 60
Range("C5😀K52").Select
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCFROID1 sur Ne" & X & ":", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCPROD_cartes sur Ne" & X & ":", Collate:=True
Next X
Range("D1").Select

End Sub

 

[JCGL]

Re : Problème de N° d'imprimante réseau selon l'installation sur les PC

Bonjour à tous,
Salut Christian,

Cela devrait fonctionner.
Si cela devait ne pas fonctionner, il est possible que l'imprimante soit listée de 0 à 9.
Il faudrait refaire une de boucle de 0 à 9 en précisant :

"\\srv-impression\IUCPCFROID1 sur Ne0" & X & ":"

A++
A + à tous

 

[Christian0258]

Re : Problème de N° d'imprimante réseau selon l'installation sur les PC

Re, le forum, JCGL,

Ok, Jean-Claude.
Merci.

a+
Christian