[..] Script pour modifier les propriétés d'impression

[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.

[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