Impression, pasage propriétés
Bonsoir à tous,
En utilisant l'option "création de macro",la génération n'importe pas les propriétés demandées lors de la demande d'édition.
Excel permet il le résultat voulu (édition en qualité brouillon) par exemple.
Voir fichier joint
A bientôt sur le fil
Annette
bonsoir,
si tu enregistre ta macro en faisant mise en page au lieu d'imprimer, ca le prends en compte, essaie, je croit que ça donne: .Draft = True
mais je peut me tromper.
cordialement
Cher maguetlolo
J'ai essayé ton idée en vain.
Le résultat de l'impression ne change pas en mettant dans le code:
With ActiveSheet.PageSetup
.Draft = False
.BlackAndWhite = False
End With
Que puis je essayé d'autre?
Amicalement
Annette
Bonjour tout le monde,
voici ton fichier, en cliquant sur le bouton, l'impression serat en brouillon et niveau de gris
maguetlolo
https://www.excel-pratique.com/~files/doc/Copie_de_edition.xls
re:
sur celui-ci, suivant le résultat de B2 l'impression serat en "brouillon" et "niveau de gris" ou pas
https://www.excel-pratique.com/~files/doc/Copie_de_edition2.xls
il y a surement mieux mais mes connaissances s'arettent là.
cordialement
Cher maguetlolo,
Je te remercie pour ta réponse, je pars en week end, je testerai la procédure à mon retour
Bien à toi
Annette
Cher maguetlolo
Merci bien pour l'information.
Je réussi à sortir l'édition soit en "Normale" soit en "Brouillon".
En ce qui concerne la couleur, je ne la vois plus et je n'arrive pas à repérer le paramètre à modifier?Aurais tu encore une bonne intuition.
Bonne nuit
Annette
Salut le forum
an.pi a écrit :Cher maguetlolo
Merci bien pour l'information.
Je réussi à sortir l'édition soit en "Normale" soit en "Brouillon".
En ce qui concerne la couleur, je ne la vois plus et je n'arrive pas à repérer le paramètre à modifier?Aurais tu encore une bonne intuition.
Bonne nuit
Annette
Oups, je voulais répondre mais tu parles à Maguetlolo comme en privé....
Ca pourrait ressembler à ceci
With ActiveWorkbook
.BlackAndWhite = True
End With
With ActiveWorkbook
.BlackAndWhite = false
End WithMytå