impression vba

Version imprimable

impression vba

Bonjour,

J'ai un problème que je n'arrive pas à résoudre si quelqu'un peut m'aider :
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 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 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("c469").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("c469").Select Application.ActivePrinter = "\\gresrvr01\GRE_HP_4350_59A sur Ne02:" Selection.PrintOut Copies:=[T2], Collate:=True If Range("F131") <> "" Then Range("M5") = "[Original]" Range("c73139").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.:D:D

22/05/2008, 14h24
pyrene
salut,

je vais peut etre dire une betise mais je me lance :

si tu ajouter quelque chose dans ce style
Code:

1 2 3 4 5 6 7 If (facture = 2 pages) then print (page 1) print (page 2) else tu fais comme d'hab end if
je ne sais si tu as deja essayé ou si c'est faisable...
22/05/2008, 14h36
Lou Pitchoun

Salut,

Pourquoi tu as [T1] ou [T2] dans copies :koi:

Ca, ça fonctionne

Code:

Selection.PrintOut Copies:=2, Collate:=True
22/05/2008, 14h38
Lou Pitchoun

J'ai compris ce que tu voulais faire enfin je crois :

Essaie ça :

Code:

Selection.PrintOut Copies:=Range("T1").Value , Collate:=True

Citation:

Envoyé par Lou Pitchoun

Salut,

Pourquoi tu as [T1] ou [T2] dans copies :koi:

Ca, ça fonctionne

Code:

Selection.PrintOut Copies:=2, Collate:=True

J'ai modifié un peu mon code pour que vous compreniez mieux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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 il y a une 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

En fait je voudrais que si j'ai 10 exemplaires (ce qui arrive souvent) il m'imprime un fois la page 1 suivie de la page 2 10 fois de suite et non 10 pages suivies de 10 pages 2. Pour gagner du temps et ne pas les remettre dans l'ordre. J'éspère que c'est compréhensible....
Merci

22/05/2008, 15h57
Lou Pitchoun

As tu essayé :

Code:

Selection.PrintOut Copies:=Range("T1").Value , Collate:=True

?

Cela imprime tes 2 pages en autant d'exemplaires (page1-page2, page1-page2...) que la valeur contenue dans Range("T1").Value.
22/05/2008, 20h58
marjo_38

Bein j'ai essayé ca marche pas. car je lui dit d'imprimer une première fois page 1 en 10 exemplaires et une deuxième fois 10 pages 2. Donc quand les pages sortent j'ai 10 pages 1 à la suite puis 10 pages 2...
Il faudrait qu'il imprime un fois page 1 puis une fois page 2 autant de fois que d'exemplaires necessaires et c'est ca que j'arrive pas à faire.

Bonjour,

Peux-tu tester ceci stp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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 <> "" 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 <> "" 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

23/05/2008, 10h38
marjo_38

Ca marche pas, il m'affiche le message "Imcompatibilité de type sur la ligne :

Code:

If Nbdup <> "" Then

Et je sais pas trop ce que ca veut dire vu que je suis encore débutante...
23/05/2008, 10h57
fred65200

bonjour,

essaie avec

Code:

If Nbdup > 0 Then

@+

Oui sorry, erreur de codage de ma part

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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

Merci pour la rectification fred ;)

23/05/2008, 11h04
fred65200

bonjour fring,

peut être une petite explication pour marjo_38:
une variable de type byte est comprise entre 0 et 255 (2^16-1)
et ne peut donc avoir "" comme valeur.

cordialement
23/05/2008, 11h05
marjo_38

Merci beaucoup ca marche!!! :D:D:D
Par contre j'ai changé aussi

Code:

If Nbori <> "" Then

en

Code:

If Nbori > 0 Then

Et la ca marche parfaitement.

Merci à tous