Un bouton pour une imprimante

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Circé
Le #18508771
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.


johend
Le #18509221
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
Circé
Le #18510631
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


johend
Le #18510681
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
Circé
Le #18511051
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


Azo4
Le #18511251
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" 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


Publicité
Poster une réponse
Anonyme