Probleme aperçu avant impression

Résolu/Fermé
gislain99 Messages postés 4 Date d'inscription mercredi 12 septembre 2012 Statut Membre Dernière intervention 25 novembre 2013 - 2 août 2013 à 22:39
gislain99 Messages postés 4 Date d'inscription mercredi 12 septembre 2012 Statut Membre Dernière intervention 25 novembre 2013 - 3 août 2013 à 13:47
Bonjour,
J'ai un petit problème avec le code ci dessous quand je veut faire un aperçu celui ci s'affiche en arrière plan de mon userform.
J'aimerais que quand j'appuis sur mon bouton aperçu mon Userform disparaisse et que mon aperçu apparaisse puis je clique sur fermer l'aperçu et mon userform réapparaisse.
j'espaire avoir était clair.

Mon code

Private Sub CommandButton12_Click()
Dim Derlign As Long ' dernière ligne utilisée
If OptionButton1 = True Then Sheets("Impression_Liste_Containers").Select
Derlign = Sheets("Impression_Liste_Containers").Range("A" & Application.Rows.Count).End(xlUp).Row 'Recherche de la dernière ligne
Sheets("Impression_Liste_Containers").PageSetup.PrintArea = "A1:G" & Derlign ' Définition de la zone d'impression avec variable Derlign
If OptionButton2 = True Then Sheets("Bases_Containers").Select
Derlign = Sheets("Bases_Containers").Range("A" & Application.Rows.Count).End(xlUp).Row 'Recherche de la dernière ligne
Sheets("Bases_Containers").PageSetup.PrintArea = "A1:O" & Derlign ' Définition de la zone d'impression avec variable Derlign
ActiveWindow.SelectedSheets.PrintPreview
End Sub



2 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
3 août 2013 à 12:32
Bonjour,

Me.Hide
ActiveWindow.SelectedSheets.PrintPreview
Me.Show


bonne suite
0
gislain99 Messages postés 4 Date d'inscription mercredi 12 septembre 2012 Statut Membre Dernière intervention 25 novembre 2013
3 août 2013 à 13:47
Bonjour
Merci beaucoup sa marche très bien
0