Page 1 sur 1
[..] Script pour modifier les propriétés d'impression
Posté : jeu. 25 juin 2009 13:59
par freemykl
Bonjour à tous,
Tout d'abord merci à toutes les personnes qui font "vivre" ce forum.
Je suis à la recherche d'un script qui pourrait modifier les propriétés d'impression de 200 fichiers Excel.
J'ai un dossier sur d:\juin2009 avec 200 fichiers Excel.
Les propriétés d'impression sont sur "noir et blanc" et je voudrais les passer en "couleur".
Je vous remercie par avance de votre aide.
Re: [..] Script pour modifier les propriétés d'impression
Posté : ven. 28 août 2009 18:08
par 20100
Je n'ai pas eu le temps (et pas l'envie aussi j'avoue ^^) de chercher dans l'API la propriété de la couleur, mais voila déjà une piste de reflexion pour gèrer la mise en page de l'impression d'Excel dans AutoIT tout passe par l'attribut
PageSetup de ta feuille.
Code : Tout sélectionner
; Constantes VBA pour Autoit (forcement ils en manquent)
const $xlPrintNoComments=-4142
const $xlLandscape=2
const $xlPaperA4=9
const $xlDownThenOver=1
; Création d'un WoorkBook dans Excel
Local $excel = ObjCreate("Excel.Application")
With $excel
.Visible = 1
.WorkBooks.Add()
.ActiveSheet.Name = "PRINT"
EndWith
; Mise en page pour l'impression
With $excel.Sheets("PRINT").PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = 0
.RightMargin = 0
.TopMargin = 0
.BottomMargin = 0
.HeaderMargin = 0
.FooterMargin = 0
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = $xlPrintNoComments
.PrintQuality = 1200
.CenterHorizontally = True
.CenterVertically = False
.Orientation = $xlLandscape
.Draft = False
.PaperSize = $xlPaperA4
.Order = $xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
EndWith