Aperçu avant impression

[maval]

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

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

 

[Staple1600]

Re : Aperçu avant impression

Bonsoir à tous

maval
Utilises l'enregistreur de macros tout en faisant un aperçu avant impression et tu auras ainsi le code VBA correspondant.

je te laisse essayer

 

[maval]

Re : Aperçu avant impression

Bonsoir JM

J'ai bien essayer mais je n'arrive pas a l’intégrer dans mon code?

@+

Max

 

[JCGL]

Re : Aperçu avant impression

Bonjour à tous,

Peux-tu essayer :

Private Sub CommandButton1_Click()

Sheets("Liste").Select
Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintPreview
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

A+ à tous
Edition : Salut l'Agrafe...

 

[Staple1600]

Re : Aperçu avant impression

Re

JCGL vient de le faire pour toi

Mais content de savoir, maval, que tu as la bonne habitude d'utiliser l'enregistreur de macros

 

[maval]

Re : Aperçu avant impression

Bonsoir JCLG, JM

Je joint un fichier pour exemple car sa ne fonctionne pas ou alors ?????

@+

Max

 

[JCGL]

Re : Aperçu avant impression

Bonjour à tous,

Peux-tu essayer :

Private Sub CommandButton3_Click()Sheets("Liste").Select
Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
ActiveWindow.SelectedSheets.PrintPreview
Application.StatusBar = ""
Selection.AutoFilter Field:=2
Unload UserImprimerActeur
Sheets("Menu").Select
End Sub

Modifie :

Private Sub CommandButton1_Click()
UserImprimerActeur.Show 0
End Sub

A+ à tous

 

[maval]

Re : Aperçu avant impression

Re, JC

Chez moi sa plante sur deux ordinateurs

@+

 

[JCGL]

Re : Aperçu avant impression

Bonjour à tous,

Chez moi sa plante sur deux ordinateurs

Ne veut rien dire...

Que se passe t'il ?

A+ à tous

 

[maval]

Re : Aperçu avant impression

Re,

Lorsque je fait un aperçu j'ai bien l’aperçu a l'écran mais il est bloquer je ne peut plus rien faire

@+

 

[JCGL]

Re : Aperçu avant impression

Bonjour à tous,

Voir la modification à faire en # 7

Ton Unload est mal placé :

Private Sub CommandButton3_Click()Sheets("Liste").Select
Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
Unload UserImprimerActeur
ActiveWindow.SelectedSheets.PrintPreview
Application.StatusBar = ""
Selection.AutoFilter Field:=2
Sheets("Menu").Select
End Sub

A+ à tous

 

[maval]

Re : Aperçu avant impression

Re,

Ok je te remercie et te souhaite une bonne soirée

Max