options macro impression

[sly25]

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]

Re : options macro impression

Bonjour,

essaye ainsi :

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

bonne journée
@+

 

[sly25]

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]

Re : options macro impression

Re,

modifie comme suit :

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]

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