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.
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.
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.
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.
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.
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.
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é 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é 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
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
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
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
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?
Cordialement
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?
Cordialement
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?
Cordialement
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é 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é 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