Impression recto verso de feuilles

Bonsoir

Je vous expose mon soucis , je souhaiterai pouvoir imprimer chaque feuille d'un classeur en recto verso.

je sais que la procedure suivante le fait parfaitement bien lorsqu'on dispose d'une imprimante qui le permet

la procedure est celle ci :

Dans Fichier > mise en page > options > config de la page il faut cliquer Recto-Verso ET faire cela sur chaque feuille du classeur.

le soucis et que cette méthode ne répond pas complétement à mon probleme du fait et que je peux créer un nombre de feuilles

tout à fait variable dans mon classeur (entre 0 et n feuilles via une macro depuis un autre classeur ) comment puis je proceder pour

obtenir par défaut le même paramétrage d'impression recto verso sur chaque feuille crée ?

En vous remerciant par avance pour toute idée ingénieuse.

re... j'ai trouvé ce code mais il ne marche pas tres bien

Dim pr As New Printer
Dim ps As New Printing.PrinterSettings
If ps.CanDuplex = True Then
    pr.Duplex = vbPRDPVertical
Else
    MsgBox ("Duplex printing is not supported.")
End If
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

j'ai un bug sur la ligne :

Dim pr As New Printer

comme type defini par l'utilisateur non defini

Bonsoir,

à tester :

Mettre ces 3 codes dans un nouveau module, 10 secondes sont impartis entre le recto et verso

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

+ créer 1 bouton relié au 1er code pour lancer l'impression

Bonsoir , je te remercie infiniment pour cette réponse cependant j'obtiens une anomalie m'indiquant

que l'indice ne corresspond pas à la selection pour cette ligne :

Sheets("recto").PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False

en te remerciant par avance

Re,

remplace "recto" et "verso" par le nom de tes 2 feuilles

..aussi faut il fixer une valeur à [A1] d'apres ton code ? car je travail sur une feuille protégée

non tu laisses comme c'est

si j'ai bien compris je dois remplacer recto et verso par le nom de mes deux feuilles , mais comment proceder si les feuilles en question

sont des feuilles crées et numerotées depuis une autre macro , puis je remplacer Sheets("recto") et Sheets("verso") par Sheets(Sheets.Count) ?

pour le recto verso oui, faut mettre le nom de tes feuilles à la place

pour le reste, je ne sais pas, fais l'essai

en tout cas je te remercie quand meme infiniment pour avoir répondu à ce post !!!

pour la suite je vais essayer de me debrouiller

de rien, ou faut bidouiller un peu pour mieux apprendre

j'ai essayé comme ceci :

sub ImprPage1()

Dim CountDown As Date
Dim i As Integer
For i = 1 To Sheets.count

    Sheets(i).Name.PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
    CountDown = Now + TimeValue("00:00:10")
    Application.OnTime CountDown, "Reset"
    Next i
End Sub
Sub Reset()

    Dim count As Range

    Set count = [A1]
    'prevoir une deprotection ici :
    count.Value = count.Value - 1
    If count <= 0 Then
      Sheets(i).Name.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
End Sub

sans succès !

essaye de rajouter ça :

Range("D8").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

dans cet exemple, la cellule D8 est protégée

daccord je te remercie pour cette suggestion , je vais adapter cela !