Sub ImprimerRectoVerso()
Dim NbPage&, n&
With ActiveSheet
.PageSetup.FitToPagesWide = 1 '1 page en largeur
NbPage = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For n = 1 To NbPage Step 2
.PrintOut From:=n, To:=n
Next
MsgBox "Retournez les feuilles...", , "Impression"
For n = 2 To NbPage Step 2
.PrintOut From:=n, To:=n
Next
End With
End Sub
' recto Macro
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets.Count - 1, Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets.Count - 1, Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sub ImprimerRectoVerso()
Dim choix As Byte, i&, a&(), j&
choix = MsgBox("Recto-verso ?", 3, "Imprimer")
If choix = 2 Then Exit Sub
For i = 1 To Worksheets.Count
Worksheets(i).PageSetup.FitToPagesWide = 1 '1 page en largeur
ReDim Preserve a(1 To i)
a(i) = ExecuteExcel4Macro("GET.DOCUMENT(50,""" & Worksheets(i).Name & """)")
Next
For i = 1 To UBound(a)
For j = 1 To a(i) Step IIf(choix = 6, 2, 1)
Worksheets(i).PrintOut From:=j, To:=j
Next
Next
If choix = 6 Then
MsgBox "Retournez les feuilles...", , "Imprimer"
For i = 1 To UBound(a)
For j = 1 To a(i) Step 2
Worksheets(i).PrintOut From:=j + 1, To:=j + 1
Next
Next
End If
End Sub
ReRe,
Si l'on veut imprimer toutes les feuilles du classeur :
Sub ImprimerRectoVerso()
Dim choix As Byte, NbPage&, n&
choix = MsgBox("Recto-verso ?", 3, "Imprimer")
If choix = 2 Then Exit Sub
With ActiveSheet
.PageSetup.FitToPagesWide = 1 '1 page en largeur
NbPage = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For n = 1 To NbPage Step IIf(choix = 6, 2, 1)
.PrintOut From:=n, To:=n
Next
If choix = 6 And NbPage > 1 Then
MsgBox "Retournez les feuilles...", , "Imprimer"
For n = 2 To NbPage Step 2
.PrintOut From:=n, To:=n
Next
End If
End With
End Sub
Re,
Ma macro du post #3 complétée :
A+Code:MsgBox "Retournez les feuilles...", , "Imprimer"