Discussion :

[apdf1]

Bonjour,

J'ai un code pour imprimer en fonction du choix de la combobox qui marche trés bien.
J'aimerai lui apporter une modification je voudrais avoir un aperçu avant impression.

Je joint mon code/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub CommandButton1_Click()
 
Sheets("Liste").Select
    Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.StatusBar = ""
Selection.AutoFilter Field:=2
Unload UserImprimerActeur
Sheets("Menu").Select
End Sub
Private Sub CommandButton2_Click()
 
Unload UserImprimerActeur
Application.StatusBar = ""
End Sub
 
 
Private Sub UserForm_Activate()
 
Application.StatusBar = "Imprimer un Acteur"
 
    DerniereComboBox6 = Worksheets("données").Range("Acteur").End(xlDown).Address
    ComboBox6.RowSource = "Acteur"
    ComboBox6.ListIndex = -1
    Sheets("Menu").Select
 
End Sub

Je vous remercie de votre aide.

Cordialement

Max

[casefayere]

Bonjour,

Intègres cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.SelectedSheets.PrintPreview

[apdf1]

Bonsoir Dom,

Je te remercie mais sa ne fonction pas avec mon code ou alors je me suis trompé.
Il faut que je fasse la recherche du nom et après faire un aperçu?

@+
Max

[casefayere]

Je viens de faire un essai qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
 
Sheets("Liste").Select
    Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    '.......
End Sub

[apdf1]

Re Dom,

Je joint un fichier si tu veut bien regarder chez sa plante???

@+

Max

[casefayere]

Je viens d'essayer ça, en ne m'occupant pas du StatutBar :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sheets("Liste").Select
Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Unload UserImprimerActeur
ActiveWindow.SelectedSheets.PrintPreview
If Sheets("Liste").AutoFilterMode = True Then Sheets("Liste").AutoFilterMode = False
'Application.StatusBar = ""
Sheets("Menu").Select