XL 2010 Impression recto/verso

team18fr

XLDnaute Junior
Bonjour,
J'ai un fichier dans lequel j'ai 2 feuilles que je dois imprimer recto/verso et pour faire je dois aller sur mise en page / option et mettre recto/verso sur chaque feuille. Mes 2 feuilles sont aussi protégées.
J'ai cherché mais je ne trouve pas de code vba correspondant. Mon imprimant fait bien le recto/verso.
J'ai testé ce bout de code mais cela m'imprime qu'une seul face et plusieurs fois et je n'arrive pas à l'adapter.
Code:
Sub ImprPage1()
Dim CountDown As Date
  Sheets("recto").PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
  CountDown = Now + TimeValue("00:00:10")
  Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
  Dim count As Range
  Set count = [A1]
  count.Value = count.Value - 1
  If count <= 0 Then
  Sheets("verso").PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
  Exit Sub
  End If
  Call ImprPage1
End Sub

Sub DisableTimer()
  On Error Resume Next
  Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub
Merci de votre aide.
 

NICOALBERT

XLDnaute Occasionnel
Bonjour team18fr ,

Une petite macro qui fonctionne chez moi , à tester .

Sub ImprimRectoVerso()
Sheets(Array("recto", "verso")).Select
Sheets("recto").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

@+
 

Discussions similaires

Statistiques des forums

Discussions
286 547
Messages
1 877 059
Membres
160 560
dernier inscrit
jesaispas
Haut Bas