Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Powerpoint Un bouton pour une imprimante

Un bouton pour une imprimante

6 réponses
Avatar
johend
Bonjour,

J'ai deux boutons (un sur chaque diapo) qui me permettent
de lancer une impression de la diapo concernée. Mais
je voudrais pouvoir assigner une imprimante différente à
chacun de ces deux boutons... Comment faire????

Mon code est le suivant :

Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut

Shapes("commandbutton1").Visible = True

End Sub

Merci pour votre aide

Cordialement.
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
Circé
Bonjour

Essaie ce code :

Application.ActivePrinter = "nom de l'imprimante"

Si tu ne connais pas le nom de l'imprimante, commence par envoyer ce
code :

Sub nom_imprimante()
MsgBox Application.ActivePrinter
End Sub

Circé
http://faqword.fr

johend avait écrit le 28/01/2009 :
Bonjour,

J'ai deux boutons (un sur chaque diapo) qui me permettent
de lancer une impression de la diapo concernée. Mais
je voudrais pouvoir assigner une imprimante différente à
chacun de ces deux boutons... Comment faire????

Mon code est le suivant :

Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut

Shapes("commandbutton1").Visible = True

End Sub

Merci pour votre aide

Cordialement.


Avatar
johend
Circé a écrit le 28/01/2009 à 10h58 :
Bonjour

Essaie ce code :

Application.ActivePrinter = "nom de l'imprimante"

Si tu ne connais pas le nom de l'imprimante, commence par envoyer ce
code :

Sub nom_imprimante()
MsgBox Application.ActivePrinter
End Sub

Circé
http://faqword.fr

johend avait écrit le 28/01/2009 :
Bonjour,

J'ai deux boutons (un sur chaque diapo) qui me permettent
de lancer une impression de la diapo concernée. Mais
je voudrais pouvoir assigner une imprimante différente à
chacun de ces deux boutons... Comment faire????

Mon code est le suivant :

Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut

Shapes("commandbutton1").Visible = True

End Sub

Merci pour votre aide

Cordialement.





Merci pour la réponse tout d'abord....
Malheureusement ceci ne fonctionne pas, je dois
faire une erreur : il me met "Erreur de compilation"

Voila mo code avec la ligne en plus:
Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

Application.ActivePrinter = "svrguer04.private.legris.comPRODUCTION"

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut



Shapes("commandbutton1").Visible = True

End Sub
Avatar
Circé
Re...

Ah ! voilà pourquoi je t'avais dit "essaie" car je n'avais pas testé
moi-même.
C'est une propriété que j'utilise effectivement avec Word, mais après
vérification, alors qu'elle est bien en lecture-écriture dans le code
de Word, elle n'est qu'en écriture pour PowerPoint. On ne peut donc pas
modifier l'imprimante active via le code.

Confirmation par la KB de MS :
http://support.microsoft.com/kb/166818/en-us

Je ne sais quoi ajouter ! :s

Circé
http://faqword.fr



johend a utilisé son clavier pour écrire :
Circé a écrit le 28/01/2009 à 10h58 :
Bonjour

Essaie ce code :

Application.ActivePrinter = "nom de l'imprimante"

Si tu ne connais pas le nom de l'imprimante, commence par envoyer ce
code :

Sub nom_imprimante()
MsgBox Application.ActivePrinter
End Sub

Circé
http://faqword.fr

johend avait écrit le 28/01/2009 :
Bonjour,

J'ai deux boutons (un sur chaque diapo) qui me permettent
de lancer une impression de la diapo concernée. Mais
je voudrais pouvoir assigner une imprimante différente à
chacun de ces deux boutons... Comment faire????

Mon code est le suivant :

Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut

Shapes("commandbutton1").Visible = True

End Sub

Merci pour votre aide

Cordialement.





Merci pour la réponse tout d'abord....
Malheureusement ceci ne fonctionne pas, je dois
faire une erreur : il me met "Erreur de compilation"

Voila mo code avec la ligne en plus:
Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

Application.ActivePrinter = "svrguer04.private.legris.comPRODUCTION"

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut



Shapes("commandbutton1").Visible = True

End Sub


Avatar
johend
Circé a écrit le 28/01/2009 à 13h34 :
Re...

Ah ! voilà pourquoi je t'avais dit "essaie" car je n'avais pas
testé
moi-même.
C'est une propriété que j'utilise effectivement avec Word, mais
après
vérification, alors qu'elle est bien en lecture-écriture dans le
code
de Word, elle n'est qu'en écriture pour PowerPoint. On ne peut donc pas
modifier l'imprimante active via le code.

Confirmation par la KB de MS :
http://support.microsoft.com/kb/166818/en-us

Je ne sais quoi ajouter ! :s

Circé
http://faqword.fr



johend a utilisé son clavier pour écrire :
Circé a écrit le 28/01/2009 à 10h58 :
Bonjour

Essaie ce code :

Application.ActivePrinter = "nom de l'imprimante"

Si tu ne connais pas le nom de l'imprimante, commence par envoyer ce
code :

Sub nom_imprimante()
MsgBox Application.ActivePrinter
End Sub

Circé
http://faqword.fr

johend avait écrit le 28/01/2009 :
Bonjour,

J'ai deux boutons (un sur chaque diapo) qui me permettent
de lancer une impression de la diapo concernée. Mais
je voudrais pouvoir assigner une imprimante différente à
chacun de ces deux boutons... Comment faire????

Mon code est le suivant :

Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut

Shapes("commandbutton1").Visible = True

End Sub

Merci pour votre aide

Cordialement.







Merci pour la réponse tout d'abord....
Malheureusement ceci ne fonctionne pas, je dois
faire une erreur : il me met "Erreur de compilation"

Voila mo code avec la ligne en plus:
Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

Application.ActivePrinter =
"svrguer04.private.legris.comPRODUCTION"

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut



Shapes("commandbutton1").Visible = True

End Sub





Ceci veut donc dire que vous n'avez pas la solution?

Cordialement
Avatar
Circé
Il se trouve que johend a formulé :
Circé a écrit le 28/01/2009 à 13h34 :



C'est une propriété que j'utilise effectivement avec Word, mais
après
vérification, alors qu'elle est bien en lecture-écriture dans le
code
de Word, elle n'est qu'en écriture pour PowerPoint. On ne peut donc pas
modifier l'imprimante active via le code.

Confirmation par la KB de MS :
http://support.microsoft.com/kb/166818/en-us

Je ne sais quoi ajouter ! :s










Ceci veut donc dire que vous n'avez pas la solution?



Ben oui, malheureusement...
Si Geo passe par ici, il aura peut être une idée... On ne sait
jamais...

Circé

Cordialement


Avatar
Azo4
introduire un batch de choix de l'imprimante par défaut avec un script de
JCB , là :

http://www.bellamyjc.org/fr/vbsdownload.html#setdefaultprinter

?



--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/



"johend" a écrit dans le message de
news:
Circé a écrit le 28/01/2009 à 13h34 :
Re...

Ah ! voilà pourquoi je t'avais dit "essaie" car je n'avais pas
testé
moi-même.
C'est une propriété que j'utilise effectivement avec Word, mais
après
vérification, alors qu'elle est bien en lecture-écriture dans le
code
de Word, elle n'est qu'en écriture pour PowerPoint. On ne peut donc pas
modifier l'imprimante active via le code.

Confirmation par la KB de MS :
http://support.microsoft.com/kb/166818/en-us

Je ne sais quoi ajouter ! :s

Circé
http://faqword.fr



johend a utilisé son clavier pour écrire :
Circé a écrit le 28/01/2009 à 10h58 :
Bonjour

Essaie ce code :

Application.ActivePrinter = "nom de l'imprimante"

Si tu ne connais pas le nom de l'imprimante, commence par envoyer ce
code :

Sub nom_imprimante()
MsgBox Application.ActivePrinter
End Sub

Circé
http://faqword.fr

johend avait écrit le 28/01/2009 :
Bonjour,

J'ai deux boutons (un sur chaque diapo) qui me permettent
de lancer une impression de la diapo concernée. Mais
je voudrais pouvoir assigner une imprimante différente à
chacun de ces deux boutons... Comment faire????

Mon code est le suivant :

Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut

Shapes("commandbutton1").Visible = True

End Sub

Merci pour votre aide

Cordialement.







Merci pour la réponse tout d'abord....
Malheureusement ceci ne fonctionne pas, je dois
faire une erreur : il me met "Erreur de compilation"

Voila mo code avec la ligne en plus:
Private Sub CommandButton1_Click()
Dim lSldNum As Long

Shapes("commandbutton1").Visible = False

Application.ActivePrinter >>> "svrguer04.private.legris.comPRODUCTION"

lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange

.Ranges.ClearAll

.Ranges.Add lSldNum, lSldNum
End With

ActivePresentation.PrintOut



Shapes("commandbutton1").Visible = True

End Sub





Ceci veut donc dire que vous n'avez pas la solution?

Cordialement