Probleme aperçu avant impression
Résolu
gislain99
Messages postés
5
Statut
Membre
-
gislain99 Messages postés 5 Statut Membre -
gislain99 Messages postés 5 Statut Membre -
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
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
A voir également:
- Vba aperçu avant impression
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Copains d'avant qui a visité mon profil - Forum Facebook
- Avant browser - Télécharger - Navigateurs
- Historique impression - Forum Windows 10