jeromeprevost623
Messages postés mercredi 22 mars 2006Date d'inscription
23 mars 2006
Dernière intervention
-
23 mars 2006 à 12:37 - Dernière réponse : jeromeprevost623
Messages postés mercredi 22 mars 2006Date d'inscription
23 mars 2006
Dernière intervention
- 23 mars 2006 à 17:30
Salut,
Ca ne me parait pas bien compliqué :
- tu créees ton tableau "vierge" dans une diapo que tu masques (diapo 99 par exemple)
- tu enregistres une nouvelle macro (Outil/macro/nouvelle macro)
- tu es en mode enregistrement de ta macro. Fichier/imprimer et tu entres "99" dans le champ "diapositive", en pensant à cocher "imprimer les diapositives masquées"
- tu stoppes ton enregistrement de macro
- tu peux aller voir à quoi elle ressemble (Outils/macros/macros puis modifier)
- ca doit ressembler à ca :
Sub Macro1()
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=99, End:=99 'ici les pages à imprimer
End With
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue 'ici on précise d'imprimer les diapos masquées
.PrintColorType = ppPrintBlackAndWhite
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "RICOH Aficio 3224C RPCS"
End With
ActivePresentation.PrintOut
End Sub
Il ne te reste plus qu'a associer ta macro à un bouton...
Salut, c vraiment sympa.
Mais comment fait on pour séparer les noms des différentes diapo
.Add Start:=99, End:=99 99,100 ou 99.100 ou ????????
et pui j'ai des problémes pour faire le bouton en question car il n'y a que des boutons genre Acceuil, Suivant,...
Et est-ce que cela fonctionnera avec toute les imprimantes?
Je te remercie énormèment... .
a aidé 93 internautes ce mois-ci