imprimer une page sur deux

[krisprolss]

Bonjour à tous,
J'aurais aimer savoir comment n'imprimer qu'une page sur deux pour pouvoir faire du recto verso.
Merci

 

[jeromegmc]

Salut,

Voici 2 macros, une pour imprimer les feuilles paires et une autre pour les feuilles impaires, j'ai définis le nb de feuilles à 6.

Sub PrintImpair()

Dim NbFeuil, i

NbFeuil = 6

For i = 1 To NbFeuil Step 2
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate _
        :=True
Next

End Sub


Sub PrintPair()

Dim NbFeuil, i

NbFeuil = 6

For i = 2 To NbFeuil Step 2
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate _
        :=True
Next

End Sub

A+