J'ai un problème de paramétrage d'imprimante
Ça, ça marche !Mais ça, ça marche pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3Dim ImprimanteActive ImprimanteActive = Application.ActivePrinter MsgBox ImprimanteActive
Ça, ça marche !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Set ImprimanteActive = Application.ActivePrinter With ImprimanteActive '.... End WithMais ça, ça marche pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 With Application ImprimanteActive = .ActivePrinter End WithMessage d'erreur dans les deux cas "Objet requis" sur ActivePrinter
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With Application Set ImprimanteParDéfaut = .ActivePrinter With ImprimanteParDéfaut '.... End With End With
Alors que dans l'aide j'ai bien ça :
De quoi "il" parle ?Utilisez la propriété Application pour renvoyer l'objet Application
Merci par avance de me donner vos impressions (!)
Partager