User se fige code pour imprimer une sélection

[Yann71]

Bonjour la com, comment allez-vous suite à cette situation peut évidente.
J'ai un petit problème dont je n'arrive à trouver la solution. J'ai un bouton dans un Userform qui me permet de pouvoir imprimer une sélection déterminée d'une feuille. Lorsque l'user s'ouvre et que l'on clic sur "IMPRIMER", c'est là que les problèmes surgissent, l'user reste figé sur ma fenêtre de l'aperçu avant impression. Je suis donc obligé de fermer le classeur par le gestionnaire des tâches. Le rond à un code pour imprimer la sélection celui-ci fonctionne parfaitement, et le rectangle ouvre un user ou se trouve un bouton avec le même code que le rond. Merci pour votre futur aide.

 

[Phil69970]

Bonjour Yann71, le forum

En fait il faut décharger ton formulaire

Private Sub CommandButton1_Click()
    Dim n%
    With ActiveSheet
        n = WorksheetFunction.Max(.Columns("A"))
        .PageSetup.PrintArea = "b1:D13"
        Unload UserForm1  'Décharge le formulaire
        .PrintPreview
    End With
End Sub

Cordialement

 

[Jacky67]

Bonjour la com, comment allez-vous suite à cette situation peut évidente.
J'ai un petit problème dont je n'arrive à trouver la solution. J'ai un bouton dans un Userform qui me permet de pouvoir imprimer une sélection déterminée d'une feuille. Lorsque l'user s'ouvre et que l'on clic sur "IMPRIMER", c'est là que les problèmes surgissent, l'user reste figé sur ma fenêtre de l'aperçu avant impression. Je suis donc obligé de fermer le classeur par le gestionnaire des tâches. Le rond à un code pour imprimer la sélection celui-ci fonctionne parfaitement, et le rectangle ouvre un user ou se trouve un bouton avec le même code que le rond. Merci pour votre futur aide.

Bonjour,
2 solutions
Fermer l'userform en début de macro.
Ou
Passer la propriété "ShowModal" de l'userform à "False"

 

[Yann71]

Bonjour, merci pour tes solutions. Ce qui concerne le fait de fermer mon user c'est impossible il reste figé et de ce qui concerne "ShowModal" il est déjà sur "False". Regarde l'exemple sur mon fichier joint

 

[Phil69970]

Bonjour Yann71 et Jacky67

Et avec cette variante tu fermes le formulaire pendant l'impression et tu le ré ouvres après .

Private Sub CommandButton1_Click()
Dim n%
Unload UserForm1  'Décharge le formulaire  
    With ActiveSheet
        n = WorksheetFunction.Max(.Columns("A"))
        .PageSetup.PrintArea = "b1:D13"
        .PrintPreview
    End With
UserForm1.show  
End Sub

Cordialement

 

[Jacky67]

Bonjour, merci pour tes solutions. Ce qui concerne le fait de fermer mon user c'est impossible il reste figé et de ce qui concerne "ShowModal" il est déjà sur "False". Regarde l'exemple sur mon fichier joint

Heu….
Tu est certain ??????????😎
Moi j'ai bien regarder 😉

 

[Yann71]

Bonjour Yann71, le forum

En fait il faut décharger ton formulaire

Private Sub CommandButton1_Click()
    Dim n%
    With ActiveSheet
        n = WorksheetFunction.Max(.Columns("A"))
        .PageSetup.PrintArea = "b1:D13"
        Unload UserForm1  'Décharge le formulaire
        .PrintPreview
    End With
End Sub

Cordialement

Bonjour Phil69970 je te remercie pour ton aide, je valide ton premier code je vais pouvoir l'adapter à mon classeur.

 

[Yann71]

Heu….
Tu est certain ??????????😎
Moi j'ai bien regarder 😉

Merci Jacky67 je ne t'oublie pas. Je te remercie pour ton intervention, merci d'avoir pris le temps de m'aider.

 

[Yann71]

Merci la com, je vous souhaite une bonne journée, et courage pour la suite de cette situation qui nous confine.