Discussion :

[pierre24]

Bonjour à tous,

je viens vers vous afin de vous présenter mon problème. Ci-dessous mon code pour imprimer des feuilles dans un fichier Excel. Je choisis un imprimante couleur par défaut dans la box qui s'affiche avec "Application.Dialogs...".

Les impressions se font bien sauf qu'il m'imprime deux feuilles sur 5 en noir et blanc ( à savoir la page 2 & 3).

Est ce que cela vient de mon code ? Y a t-il des paramètres d'impressions à vérifier dans Excel sur les feuilles imprimées en N&B ?

Par avance merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
Sheets("page1").Range(plage).PrintOut copies:=2
Sheets("page2").Range(plage).PrintOut copies:=2
Sheets("page3").Range(plage).PrintOut copies:=2
Sheets("page4").Range(plage).PrintOut copies:=2
Sheets("Récap").PageSetup.Orientation = xlLandscape
Sheets("page5").Range("A1:Q17").PrintOut copies:=2

[verredewhisky]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With Sheets("Récap").PageSetup
                .Orientation = xlLandscape
                .BlackAndWhite = False
end with

Exemples d'autres propriétés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
With Sheets("Récap").PageSetup
            .PaperSize = xlPaperA3
            .TopMargin = Application.CentimetersToPoints(0)
            .BottomMargin = Application.CentimetersToPoints(0)
            .HeaderMargin = Application.CentimetersToPoints(0)
            .FooterMargin = Application.CentimetersToPoints(0)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .PrintQuality = 600
            .CenterHorizontally = False
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .PrintErrors = xlPrintErrorsDisplayed
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
        End With

[pierre24]

Cool merci !

Les pageSetup placés avant les printOut marchent très bien...