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.
Merci de votre aide.
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