Probleme aperçu avant impression
Résolu
gislain99
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
gislain99 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
gislain99 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
- Avant browser - Télécharger - Navigateurs
- Copains d'avant qui a visité mon profil - Forum Facebook
- Historique impression - Forum Windows 10
