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

JCGL

XLDnaute Barbatruc

• 9 Juillet 2011

• #2

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

Bonjour à tous,
Salut Christian,

Peux-tu essayer :

VB:

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...

 

Dernière édition: 9 Juillet 2011

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 9 Juillet 2011

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Juillet 2011

• #4

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

 

Dernière édition: 9 Juillet 2011

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Juillet 2011

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Juillet 2011

• #6

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 & ":"

Cliquez pour agrandir...

A++
A + à tous

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Juillet 2011

• #7

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

 

Vote positif 0 Vote négatif