Probleme d'impression tout con

[bonoboas]

Bonjour a tous, j'ai créer une macro simple tout con pour imprimer 2 feuilles sur une imprimante en réseau par le code suivant :

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\BECHET2\AMPB sur Ne04:", Collate:=True

Sauf que lorsque je change de poste cette ligne de code ne fonctionne pas, donc je refais la macro la ligne de code devient :

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\BECHET2\AMPB sur Ne03:", Collate:=True

Donc j'ai essayé de coder comme ça :

on error resume next

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\BECHET2\AMPB sur Ne03:", Collate:=True
on error resume next

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\BECHET2\AMPB sur Ne04:", Collate:=True
end sub


pour sauter l'erreur et ça MARCHE sauf que la commande ne s'arrête plus.
Et obliger de quitter le fichier pour arrèter l'impression...ou crier à la secretaire pour éteindre l'imprimante...mdr

Comment faire pour stopper la commande...svp

 

[JCGL]

Re : Probleme d'impression tout con

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Imrpime()
Dim X As Byte
For X = 1 To 9
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\BECHET2\AMPB sur Ne0" & X & ":", Collate:=True
Next
End Sub

A+ à tous