Impression feuils Excel

cs_filou Messages postés 98 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 15 janvier 2008 - 11 sept. 2007 à 15:34
JM247L Messages postés 443 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 1 mars 2011 - 12 sept. 2007 à 09:28
Bonjour,

Je transfere des données dans des feuilles Excel.
Dans un premier cas je n'ai qu'une feuille. Je fait ça pour l'imprmer :
appExcel.ActiveWorkbook.Worksheets(1).Activate()
appExcel.ActiveWindow.SelectedSheets.PrintOutEx()

Ce que j'aimerai faire c'est imprimer plusieurs copie

J'ai un autre classeur ou là j'aimerai imprimer toutes les feilles du classeur 1 fois.

Merci D'avance

3 réponses

JM247L Messages postés 443 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 1 mars 2011 2
11 sept. 2007 à 16:28
Bonjour,
Certainement qu'une macro mémorisée sous excel te donnera l'option pour le nombre de copie
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Pour l'ensemble du classeur il existe aussi une option
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True

JML
 Partageons notre savoir et nos acquis
0
cs_filou Messages postés 98 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 15 janvier 2008
11 sept. 2007 à 18:58
OK merci ca marche

appExcel.ActiveWindow.SelectedSheets.PrintOut(Copies:=3)
et
appExcel.ActiveWorkbook.PrintOut(Copies:=1)

Sans le Collate. Que signifie le Collate

FiloU
0
JM247L Messages postés 443 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 1 mars 2011 2
12 sept. 2007 à 09:28
Salut,
Content que ça marche
"Collate" = "Copie Assemblée" : Indique si, dans le cas de plusieurs copies, les feuilles doivent être une par une imprimées plusieurs fois ou si toutes les feuilles doivent être imprimées les une après les autres avant de passer à la copie suivante
Mais cette option est peut être spécifique à VBA sous Excel !!!

N'oublions pas de cliquer "Réponse Acceptée" quand c'est le casJML
 Partageons notre savoir et nos acquis
0
Rejoignez-nous