XL 2019 Userform pour lancer l'impression

[Yann71]

Bonsoir la com. Me voici confronté à un problème. J'ai un Userform sur lequel j'ai 2 boutons. L'un pour imprimer la feuille en cour et un autre qui affiche la liste des feuilles du classeur me permettant ainsi de sélectionner la ou les feuilles à imprimer. Ces 2 boutons font référence à un PrintPreview. Mon problème est que lorsque je clic sur le bouton imprimer la feuille, il m'affiche bien l'aperçu de la feuille mais fige mon classeur et je ne peux plus rien faire, idem pour le bouton Afficher la liste. J'ai bien tenté de trouvé des solutions, mais rien à faire. Je joins un fichier. Merci pour votre futur aide.

 

[Phil69970]

Bonjour @Yann71

Tu remplaces :

Private Sub CommandButton2_Click()
ActiveSheet.PrintPreview
End Sub

Par

Private Sub CommandButton2_Click()
ActiveSheet.PrintOut
End Sub

Et l'impression se lancera directement (il n'y aura plus d’aperçu )

Merci de ton retour

@Phil69970

 

[Dranreb]

Bonsoir
Il me semble avoir déjà fait dans un UserForm Me.Hide devant un PrintPreview puis Me.Show derrière pour résoudre ce problème. À vérifier …

 

[Yann71]

Bonsoir
Il me semble avoir déjà fait dans un UserForm Me.Hide devant un PrintPreview puis Me.Show derrière pour résoudre ce problème. À vérifier …

Bonsoir, merci pour ton intervention, je viens d'essayer ta solution, mais impossible, rien ne fonctionne. Est-ce que tu aurais un exemple ?

 

[Dranreb]

Non, je n'ai pas retrouvé ça.
Mais j'ai mis ça dans un nouvel UserForm muni d'un CommandButton1 et ça marche :

Option Explicit
Private Sub CommandButton1_Click()
   Me.Hide
   ActiveSheet.PrintPreview
   Me.Show
   End Sub

En tout cas ça marche en fermant l'aperçu. En demandant l'impression effective, je ne sais pas …

 

[Yann71]

Bonjour @Yann71

Tu remplaces :

Private Sub CommandButton2_Click()
ActiveSheet.PrintPreview
End Sub

Par

Private Sub CommandButton2_Click()
ActiveSheet.PrintOut
End Sub

Et l'impression se lancera directement (il n'y aura plus d’aperçu )

Merci de ton retour

@Phil69970

Bonjour Phil, merci pour ton intervention. Je souhaite pouvoir avoir accès à l'aperçu avant impression, ce que ton code ne me permet plus. Le code de Dranreb est parfait pour le bouton "Imprimer la feuille", mais il manque celui qui s'adresse au bouton " Afficher la liste ".

 

[Yann71]

Non, je n'ai pas retrouvé ça.
Mais j'ai mis ça dans un nouvel UserForm muni d'un CommandButton1 et ça marche :

Option Explicit
Private Sub CommandButton1_Click()
   Me.Hide
   ActiveSheet.PrintPreview
   Me.Show
   End Sub

En tout cas ça marche en fermant l'aperçu. En demandant l'impression effective, je ne sais pas …

Bojour Dranreb, merci pour ton intervention. Le code fonctionne parfaitement avec le bouton " Imprimer la feuille " , mais il manque celui qui s'adresse au bouton " Afficher la liste ", à chaque fois lorsque je demande un aperçu tout se fige. Je joins le fichier.

 

[Dranreb]

Il faut faire pareil. C'est à dire faire en sorte que rien d'autre de modal ne soit affiché en même temps que l'aperçu. Ça inclut :

Private Sub CommandButton1_Click()
Me.Hide
frm_impression.Show
Me.Show
End Sub

Peut être que ce serait plus simple de mettre la propriété ShowModal des UserForm à False.
Attention: les exécutions ne sont alors plus suspendues par leur méthode Show, et il faut donc les concevoir en conséquence.
Cela dit je ne vois pas bien ce que tout ça apporte, vu que l'aperçu dispose d'une commande pour imprimer.

 

[Yann71]

Il faut faire pareil. C'est à dire faire en sorte que rien d'autre de modal ne soit affiché en même temps que l'aperçu. Ça inclut :

Private Sub CommandButton1_Click()
Me.Hide
frm_impression.Show
Me.Show
End Sub

Peut être que ce serait plus simple de mettre la propriété ShowModal des UserForm à False.
Attention: les exécutions ne sont alors plus suspendues par leur méthode Show, et il faut donc les concevoir en conséquence.
Cela dit je ne vois pas bien ce que tout ça apporte, vu que l'aperçu dispose d'une commande pour imprimer.

Bonsoir Dranreb, merci pour ton aide, c'est ce que je recherchai. Je vais profiter de tes connaissances en te posant la question est-ce qu'il est possible que lorsque l'on sélectionne une feuille à imprimer que le nom de la feuille prenne une autre couleur de fond ou que la case à cochée se colore.

 

[kiki29]

Salut, à voir peut-être ?