[RESOLUTO]Imprission recto verso les pages de la meme feuille

[Ilino]

Bonjour
Je cherche un code (VBA) STANDARD pour imprimer la feuille en recto verso (si le nombre de page dans la même feuille dépasse 1)
grazie

 

[Papou-net]

Re : Imprission recto verso les pages de la meme feuille

Bonjour Ilino,

As-tu pensé à enregistrer une macro dans laquelle tu configures l'imprimante en recto-verso?

Tu obtiendras un grand nombre de lignes de code mais on pourra toujours t'aider à supprimer celles qui ne sont pas nécessaires ou indispensable.

A +

Cordialement.

 

[job75]

Re : Imprission recto verso les pages de la meme feuille

Bonjour Ilino, Papou-net,

Un exemple de ce que l'on peut faire :

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

Retournez les feuilles avant de cliquer sur OK...

A+

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Bonjour Papou
Merci pour la remarque et la proposition, ci dessous le code

' recto Macro
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

ça fonctionne parfaitement mais il est limité au 2 pages seulement , mon souci qu'il ne soit pas limité c a d le code doit détecté automatiquement le nombre de page
A+

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

bONJOUR maitre
sorry je n'ai pas vu ton code , je te retourne la réponse
A+

 

[Papou-net]

Re : Imprission recto verso les pages de la meme feuille

RE:

Peut-être comme ceci:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

Cordialement.

NB: Bonjour job75

 

[Papou-net]

Re : Imprission recto verso les pages de la meme feuille

Ou encore:

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets.Count - 1, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

Cordialement.

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Re pAPOU, mAITRE
MERCI POUR LES RÉPONSES,je souhaite ajouter a ce code un message pour afficher le nombre de page a imprimer

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets.Count - 1, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

exemple:
MsgBox "Impression Recto-Verso ?", , "Impression" si oui combien de page de 1 a 2 si non 1
A+

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Re
est ce que mon souci est clair ?
Merci par avance
GRAZIE

 

[job75]

Re : Imprission recto verso les pages de la meme feuille

Re,

Si l'on veut imprimer toutes les feuilles du classeur :

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

Je n'ai pas testé.

A+

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Re maitre
merci pour la réponse , j'ai testé tes codes mais mon souci je souhaite imprimer selon le nombre que je veux ( avant l'impression) et non pas toutes les pages de la feuille.
GRAZIE
a+

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Re,

Si l'on veut imprimer toutes les feuilles du classeur :

Re
non ce n'est pas ça, je souhaite imprimer les pages d'une feuille et non pas toutes les feuilles
A+

 

[job75]

Re : Imprission recto verso les pages de la meme feuille

Re,

Ma macro du post #3 complétée :

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

Si ce n'est pas ce que tu veux explique-toi plus clairement.

A+

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Re,

Ma macro du post #3 complétée :

      MsgBox "Retournez les feuilles...", , "Imprimer"

A+

Re,
Merci encore pour tes réponse (excellente), mais dans ton code je souhaite que l'impression recto-verso soit automatique et selon le nombre de page de la feuille
GRAZIE

 

[Ilino]

Re : Imprission recto verso les pages de la meme feuille

Forum Bonjour
je relance mon souci ,est ce que il est claire
MERCI PAR AVANCE