Code macro pour imprimer Recto Verso

[zombe]

Salut le forum

J'ai le code macro ci-dessous qui me permet de réaliser des impressions.
Pour la feuille CGLES, l'impression se fait sur 2 pages.
Je souhaite qu'au lieu de 2 pages, l'impression se face sur une seule page en RECTO VERSO.
Comment faire?

Code: Tout sélectionner

Sub IMPRESSION_RECTO()

'Déclaration des variables

Dim valeur_donne_D35 As String
Dim valeur_donne_D36 As String

'Sélection de la valeur de !DONNE D35 et DONNE D36 et mise en variable

valeur_donne_D35 = Worksheets("DONNE").Range("D35")
valeur_donne_D36 = Worksheets("DONNE").Range("D36")

ElseIf valeur_donne_D35 = "46" Or valeur_donne_D35 = "49" Then
Sheets("SESA").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("CGLES").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True

Else
If valeur_donne_D36 = "24" Or valeur_donne_D36 = "23" Or valeur_donne_D36 = "35" Or valeur_donne_D36 = "41" Or valeur_donne_D36 = "44" Then
Sheets("SMS").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True

'Fin de la vérification des conditions
End If
End Sub

[Yvouille]

Salut,

J'ai essayé d'enregistrer un code avec l'enregistreur et il se résume à une ligne

Code: Tout sélectionner

Sub Macro2()
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Essaie d'enregistrer un code chez toi et tu verras bien comment tu peux le réutiliser, non ?

Cordialement.

[zombe]

Salut yvouille

Je m'excuse de n'avoir pas donné une suite à ta réponse.
Finalment ca m'en suis servi et mon problème a été résolu.
Merci infiniment