options macro impression

sly25 · 6 Août 2010

Bonjour,

sur une macro destinée à l'impression j'ai ceci :

Sub impression()
With ActiveSheet
.PageSetup.BlackAndWhite = True
.PrintOut
End With
End Sub

Pour l'instant, j'imprime en noir et blanc la feuille active de mon classeur. J'aimerais ajouter que cette feuille active s'imprime en double (copies=2 ??)
sur un format A5. Je débute en VBA donc je ne sais pas comment faire et je ne trouve pas de site permettant de débuter et de comprendre le fonctionnement du VBA.

Merci d'avance.

Sly25

Pierrot93 · 6 Août 2010

Re : options macro impression

Bonjour,

essaye ainsi :

Code:

Sub impression()
With ActiveSheet
    With .PageSetup
        .BlackAndWhite = True
        .PaperSize = xlPaperA5
    End With
    .PrintOut Copies:=2
End With
End Sub

bonne journée
@+

sly25 · 6 Août 2010

Re : options macro impression

merci ca marche super !!!

Et si je veux mettre ma feuille en portrait ou paysage est ce possible ? Il y a une ligne a rajouter je pense ?

Merci beaucoup en tout cas !!

Pierrot93 · 6 Août 2010

Re : options macro impression

Re,

modifie comme suit :

Code:

Sub impression()
With ActiveSheet
    With .PageSetup
        .Orientation = xlPortrait 'ou bien xllandscape pour paysage
        .BlackAndWhite = True
        .PaperSize = xlPaperA5
    End With
    .PrintOut Copies:=2
End With
End Sub

croco40 · 6 Août 2010

Re : options macro impression

Salut Sly25,
pour les impressions, tu peux aussi creer un enregistrement auto de macro dans une autre procedure, comme ca tu selectionne graphiquement tes options.
Suerte
Croco

options macro impression

sly25

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

sly25

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

croco40

XLDnaute Occasionnel

Discussions similaires