Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel bac alimentation vba excel

bac alimentation vba excel

6 réponses
Avatar
loiclk
Bonjour,

Je suis en excel 2002 et en vba 6.3 pour excel.
j'aimerai piloter mon imprimante hp 9050 avec 4 bacs alimentations à partir
de vba.

J'ai des feuilles à sortir du bac supérieur et d'autres du bac inférieur.
Malheureusement, tout ce que j'ai trouvé sur le web ne fonctionne que pour
word.

J'ai trouvé un code qui me change bien l'imprimante de la feuille active
d'excel,
il fonctionne avec des broadcoast, mais sans changer les param.
J'ai bien trouvé des codes qui me change les param de l'imprimante par
défaut
mais pas celle utilisé par la feuille active d'excel.

Pouvez vous m'aider svp
j'ai beau chercher je ne trouve pas de solution.
merci de votre aide
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Regarde à tout hasard du côté de SendKeys...
Cordialement.
Daniel
"loiclk" a écrit dans le message de news:

Bonjour,

Je suis en excel 2002 et en vba 6.3 pour excel.
j'aimerai piloter mon imprimante hp 9050 avec 4 bacs alimentations à
partir de vba.

J'ai des feuilles à sortir du bac supérieur et d'autres du bac inférieur.
Malheureusement, tout ce que j'ai trouvé sur le web ne fonctionne que
pour word.

J'ai trouvé un code qui me change bien l'imprimante de la feuille active
d'excel,
il fonctionne avec des broadcoast, mais sans changer les param.
J'ai bien trouvé des codes qui me change les param de l'imprimante par
défaut
mais pas celle utilisé par la feuille active d'excel.

Pouvez vous m'aider svp
j'ai beau chercher je ne trouve pas de solution.
merci de votre aide



Avatar
loiclk
merci de ta réponse,
j'avais bien pensé aux send keys,, mais j'aurai voulu éviter ces commandes
"Daniel.C" a écrit dans le message de news:

Bonjour.
Regarde à tout hasard du côté de SendKeys...
Cordialement.
Daniel
"loiclk" a écrit dans le message de news:

Bonjour,

Je suis en excel 2002 et en vba 6.3 pour excel.
j'aimerai piloter mon imprimante hp 9050 avec 4 bacs alimentations à
partir de vba.

J'ai des feuilles à sortir du bac supérieur et d'autres du bac inférieur.
Malheureusement, tout ce que j'ai trouvé sur le web ne fonctionne que
pour word.

J'ai trouvé un code qui me change bien l'imprimante de la feuille active
d'excel,
il fonctionne avec des broadcoast, mais sans changer les param.
J'ai bien trouvé des codes qui me change les param de l'imprimante par
défaut
mais pas celle utilisé par la feuille active d'excel.

Pouvez vous m'aider svp
j'ai beau chercher je ne trouve pas de solution.
merci de votre aide







Avatar
Misange
Bonjour
regarde déjà ici
http://www.excelabo.net/excel/imprimervba.php
De mémoire, la solution consiste à créer une imprimante pour chaque type
de bas de feuille et à en changer. SAuf erreur, il n'y a pas moyen de
spécifier le bac autrement. Si tu trouves, tu le dis, je le mettrai en
ligne !
Misange

Bonjour,

Je suis en excel 2002 et en vba 6.3 pour excel.
j'aimerai piloter mon imprimante hp 9050 avec 4 bacs alimentations à partir
de vba.

J'ai des feuilles à sortir du bac supérieur et d'autres du bac inférieur.
Malheureusement, tout ce que j'ai trouvé sur le web ne fonctionne que pour
word.

J'ai trouvé un code qui me change bien l'imprimante de la feuille active
d'excel,
il fonctionne avec des broadcoast, mais sans changer les param.
J'ai bien trouvé des codes qui me change les param de l'imprimante par
défaut
mais pas celle utilisé par la feuille active d'excel.

Pouvez vous m'aider svp
j'ai beau chercher je ne trouve pas de solution.
merci de votre aide




Avatar
loiclk
j'ai déjà trouvé avec excelabo pour changer l'imp de la feuille active.
mais le code ci -joint ne me permet que de modifier les paramêtres de l'imp
par défaut.
Des personnes ont apparemment trouvé comment faire mais pas moi.

j'ai même essayé ceci :
1) excel feuille active imprimante couleur
je lance le code pour les paramêtres puis le code pour le changement
d'imprimante
j'obtiens :
excel feuille active imprimante 9050 bac 3
Jusqu'ici c'est bon

mais si je recommence l'opération une 2 ème fois à partir du 1)
lorsque je récupère l'imp active pour la feuille,
le bac est resté le même que pour le 1)

je ne comprends pas pourquoi ?
"Misange" a écrit dans le message de news:
eDOI$
Bonjour
regarde déjà ici
http://www.excelabo.net/excel/imprimervba.php
De mémoire, la solution consiste à créer une imprimante pour chaque type
de bas de feuille et à en changer. SAuf erreur, il n'y a pas moyen de
spécifier le bac autrement. Si tu trouves, tu le dis, je le mettrai en
ligne !
Misange

Bonjour,

Je suis en excel 2002 et en vba 6.3 pour excel.
j'aimerai piloter mon imprimante hp 9050 avec 4 bacs alimentations à
partir de vba.

J'ai des feuilles à sortir du bac supérieur et d'autres du bac inférieur.
Malheureusement, tout ce que j'ai trouvé sur le web ne fonctionne que
pour word.

J'ai trouvé un code qui me change bien l'imprimante de la feuille active
d'excel,
il fonctionne avec des broadcoast, mais sans changer les param.
J'ai bien trouvé des codes qui me change les param de l'imprimante par
défaut
mais pas celle utilisé par la feuille active d'excel.

Pouvez vous m'aider svp
j'ai beau chercher je ne trouve pas de solution.
merci de votre aide




Avatar
loiclk
j'ai déjà trouvé avec excelabo pour changer l'imp de la feuille active.
mais le code ci -joint ne me permet que de modifier les paramêtres de l'imp
par défaut.
Des personnes ont apparemment trouvé comment faire mais pas moi.

j'ai même essayé ceci :
1) excel feuille active imprimante couleur
je lance le code pour les paramêtres puis le code pour le changement
d'imprimante
j'obtiens :
excel feuille active imprimante 9050 bac 3
Jusqu'ici c'est bon

mais si je recommence l'opération une 2 ème fois à partir du 1)
lorsque je récupère l'imp active pour la feuille,
le bac est resté le même que pour le 1)

je ne comprends pas pourquoi ?
"Misange" a écrit dans le message de news:
eDOI$
Bonjour
regarde déjà ici
http://www.excelabo.net/excel/imprimervba.php
De mémoire, la solution consiste à créer une imprimante pour chaque type
de bas de feuille et à en changer. SAuf erreur, il n'y a pas moyen de
spécifier le bac autrement. Si tu trouves, tu le dis, je le mettrai en
ligne !
Misange

Bonjour,

Je suis en excel 2002 et en vba 6.3 pour excel.
j'aimerai piloter mon imprimante hp 9050 avec 4 bacs alimentations à
partir de vba.

J'ai des feuilles à sortir du bac supérieur et d'autres du bac inférieur.
Malheureusement, tout ce que j'ai trouvé sur le web ne fonctionne que
pour word.

J'ai trouvé un code qui me change bien l'imprimante de la feuille active
d'excel,
il fonctionne avec des broadcoast, mais sans changer les param.
J'ai bien trouvé des codes qui me change les param de l'imprimante par
défaut
mais pas celle utilisé par la feuille active d'excel.

Pouvez vous m'aider svp
j'ai beau chercher je ne trouve pas de solution.
merci de votre aide




Avatar
Modeste
Bonsour® loiclk avec ferveur ;o))) vous nous disiez :

j'ai déjà trouvé avec excelabo pour changer l'imp de la feuille
active. mais le code ci -joint ne me permet que de modifier les
paramêtres de l'imp par défaut.

"Misange" a écrit
De mémoire, la solution consiste à créer une imprimante pour chaque
type de bac de feuille et à en changer.



Personnellement j'ai écrit le 26/11 à 13:17

Sub Change_printer()
printerold = Application.ActivePrinter
MsgBox "L'imprimante active actuelle est : " _
& " >>>>> " & printerold

dlganswer = Application.Dialogs(xlDialogPrinterSetup).Show
If dlganswer = True Then
reponse = MsgBox("L'imprimante active était : " _
& Chr(10) & " ====> " & printerold _
& Chr(10) & " elle sera maintenant : " _
& Chr(10) & " ====> " & Application.ActivePrinter _
& Chr(10) & "Voulez vous confirmer ?", _
vbQuestion + vbYesNo, _
"Changement d'imprimante")
If reponse = vbYes Then
MsgBox "L'imprimante active actuelle devient : " _
& Chr(10) & " ====> "& Application.ActivePrinter
Exit Sub
End If
Else
Application.ActivePrinter = printerold
MsgBox "L'imprimante active reste : " _
& Chr(10) & " ====> "& printerold
End If
End Sub

@+
;o)))