Userform imprimer plusieurs pages

M

marjo_38

XLDnaute Nouveau
Bonjour,

J'ai un fichier excel où je crée des factures. Il y a un userform pour imprimer ces factures dans lequel j'indique le nombre de duplicata et d'original que je souhaites imprimer. Cependant,il arrive que cette facture soit sur 2 pages et il y a toujours plusieurs exemplaires et je voudrais que la page 1 et la page 2 sortent à la suite et non plusieurs pages 1 et plusieurs pages 2.
Voici ma macro :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Imprimer.Hide
Range("T1").Value = Imprimer.ComboBox1.Value
Range("T2").Value = Imprimer.ComboBox2.Value
If Imprimer.ComboBox1.Value <> "" Then
Range("c4:eek:69").Select
Range("m5") = "[Duplicata]"
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
Selection.PrintOut Copies:=[T1], Collate:=True
If Range("F31") <> "" Then
Range("c73:O139").Select
Range("m5") = "[Duplicata]"
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
Selection.PrintOut Copies:=[T1], Collate:=True
End If
If Range("F131") <> "" Then
Else: Range("T1") = ""
End If
If Imprimer.ComboBox2.Value = "" Then
Range("T2") = ""
ElseIf ComboBox2.Value <> "" Then
Range("M5") = "[Original]"
Range("c4:eek:69").Select
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
Selection.PrintOut Copies:=[T2], Collate:=True
If Range("F131") <> "" Then
Range("M5") = "[Original]"
Range("c73:eek:139").Select
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
Selection.PrintOut Copies:=[T2], Collate:=True
End If
Range("A3").Select
End Sub

Merci pour votre aide.

Marjo_38
 
Trier par date Trier par votes
Cousinhub

Cousinhub

XLDnaute Barbatruc
Re : Userform imprimer plusieurs pages

Bonsoir,
pas évident, sans fichier....
Regarde l'idée suivante :

Code: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Imprimer.Hide
Range("T1").Value = Imprimer.ComboBox1.Value
Range("T2").Value = Imprimer.ComboBox2.Value
If Imprimer.ComboBox1.Value <> "" Then
    With ActiveSheet
        .PageSetup.PrintArea = "$C$4:$O$69"
        Range("M5") = "[Duplicata]"
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
        For y = 1 To [T1]
            For x = 1 To .HPageBreaks.Count + 1
                .PrintOut From:=x, To:=x, Copies:=1, Collate:=True
            Next x
        Next y
    End With
End If
If Range("F31") <> "" Then
    With ActiveSheet
        .PageSetup.PrintArea = "$C$73:$O$139"
        Range("M5") = "[Duplicata]"
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
        For y = 1 To [T1]
            For x = 1 To .HPageBreaks.Count + 1
                .PrintOut From:=x, To:=x, Copies:=1, Collate:=True
            Next x
        Next y
    End With
End If
If Range("F131") <> "" Then
Else: Range("T1") = ""
End If
If Imprimer.ComboBox2.Value = "" Then
Range("T2") = ""
ElseIf ComboBox2.Value <> "" Then
Range("M5") = "[Original]"
    With ActiveSheet
        .PageSetup.PrintArea = "$C$4:$O$69"
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
        For y = 1 To [T2]
            For x = 1 To .HPageBreaks.Count + 1
                .PrintOut From:=x, To:=x, Copies:=1, Collate:=True
            Next x
        Next y
    End With
If Range("F131") <> "" Then
    With ActiveSheet
        .PageSetup.PrintArea = "$C$73:$O$139"
        Range("M5") = "[Original]"
Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
        For y = 1 To [T2]
            For x = 1 To .HPageBreaks.Count + 1
                .PrintOut From:=x, To:=x, Copies:=1, Collate:=True
            Next x
        Next y
    End With
End If
End If
Range("A3").Select
End Sub

Peut-être.....
 
Dernière édition:
Vote positif 0 Vote négatif
JCGL

JCGL

XLDnaute Barbatruc
Re : Userform imprimer plusieurs pages

Bonjour à tous,
Bienvenue à marjo_38 :),

Tu es entre de bonnes mains avec BH²
Tu as deux avantages : ton âge et ton département, si tant est que le _38 soit pour l'Isère...

Deux chiffres qu'il apprécie particulièrement ( 23 pour l'âge et le 38 pour le département)

A++ mon ami BH² :)
A+ marjo_38 ;)
A+ à tous
 
Vote positif 0 Vote négatif
M

marjo_38

XLDnaute Nouveau
Re : Userform imprimer plusieurs pages

Bonjour,

J'ai essayé ton code mais ca ne marche pas comme je voudrais.
J'ai essayé d'imprimer mais les pages 1 sortent toutes à la suite et ensuite toutes les pages 2.
Il m'arrive souvent d'avoir 10 exemplaires et c'est pour ne pas avoir à les remettre dans l'ordre à chaque fois.
Je ne peux pas joindre de fichier car c'est confidentiel mais j'ai modifié un peu mon code pour plus de compréhénsion.

Code: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Imprimer.Hide
'Nombre d'impression en duplicata
Range("T1").Value = Imprimer.ComboBox1.Value
'Nombre d'impression en original
Range("T2").Value = Imprimer.ComboBox2.Value
If Imprimer.ComboBox1.Value <> "" Then
   Range("Page1").Select
    Range("m5") = "[Duplicata]"
    Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
    Selection.PrintOut Copies:=[T1], Collate:=True
    End If
    'Si 2ème page à imprimer en duplicata
    If Range("F131") <> "" Then
     Range("Page2").Select
    Range("m5") = "[Duplicata]"
    Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
    Selection.PrintOut Copies:=[T1], Collate:=True
    End If
    If Imprimer.ComboBox2.Value = "" Then
    Range("T2") = ""
    ElseIf ComboBox2.Value <> "" Then
    Range("M5") = "[Original]"
    Range("Page1").Select
    Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
    Selection.PrintOut Copies:=[T2], Collate:=True
    'Si 2ème page à imprimer en original
    If Range("F131") <> "" Then
     Range("M5") = "[Original]"
 Range("Page2").Select
    Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
    Selection.PrintOut Copies:=[T2], Collate:=True
     End If
     End If
    Range("A3").Select
End Sub
 
Vote positif 0 Vote négatif
M

marjo_38

XLDnaute Nouveau
Re : Userform imprimer plusieurs pages

Bonjour NoviceAG,

Oui copie assemblée est coché. Mon problème ne dépend pas de ca.
Mais ca y est j'ai trouvé un code qui me permet d'imprimer page 1 puis page 2 le voici au cas ou ca puisse servir à quelqu'un :

Code: 
Private Sub CommandButton1_Click()
Dim Nbdup As Byte, Nbori As Byte
 
Imprimer.Hide
Application.ScreenUpdating = False
 
'Nombre d'impression en duplicata
Nbdup = Imprimer.ComboBox1.Value
'Nombre d'impression en original
Nbori = Imprimer.ComboBox2.Value
 
'Sélection de la plage à imprimer
If Range("F131") <> "" Then
    Range("Page1, Page2").Select
Else
    Range("Page1").Select
End If
 
'Impression duplicata
If Nbdup > 0 Then
    Range("m5") = "[Duplicata]"
    Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
    Selection.PrintOut Copies:=Nbdup, Collate:=True
End If
 
'Impression original
If Nbori > 0 Then
    Range("m5") = "[Original]"
    Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:"
    Selection.PrintOut Copies:=Nbori, Collate:=True
End If
 
Range("A3").Select
Application.ScreenUpdating = True
 
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

kadelmalin
  • Question
XL 2010 Impression plusieurs plages
Réponses
4
Affichages
388
kadelmalin
kadelmalin
B
  • Résolu(e)
XL 2016 concours / Macro imprimer le texte au maximum selon les pages
Réponses
10
Affichages
545
berru76
B
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
521
berru76
B
tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
210
tactic6
tactic6
Yann71
  • Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
667
Yann71
Yann71
C
  • Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
444
Chatron
C
S
  • Question
XL 2019 Macro VBA enregistrement pdf plusieurs onglets dans un sens précis
Réponses
11
Affichages
1 K
sofmat
S
G
  • Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
1 K
Gasner
G
B
  • Résolu(e)
XL 2016 Macro imprimer que les cellules pleines
Réponses
6
Affichages
851
berru76
B
D
  • Résolu(e)
Microsoft 365 Boucle Do until
2
Réponses
16
Affichages
2 K
danpom302
D

Membres actuellement en ligne

12 membres et 130 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 498
Messages
2 088 996
Membres
104 001
dernier inscrit
dessinbecm