Aperçu avant impression

  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

maval

XLDnaute Barbatruc
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:
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
 
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...
 
Dernière édition:
Re : Aperçu avant impression

Bonjour à tous,

Peux-tu essayer :

VB:
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 :

VB:
Private Sub CommandButton1_Click()
UserImprimerActeur.Show 0
End Sub

A+ à tous
 
Dernière édition:
Re : Aperçu avant impression

Bonjour à tous,

Voir la modification à faire en # 7

Ton Unload est mal placé :

VB:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
547
Réponses
3
Affichages
665
Réponses
4
Affichages
752
Retour