XL 2019 Imprimer une feuille via userform

[Kevin38]

Bonjour à tous,

Je sollicite votre aide pour ma commande ci-dessous; j'ai mon "userform" et souhaite imprimer une feuille de mon classeur. Mais mon soucis est que quand je click sur le bouton imprimer, ma feuille à imprimer s'affiche bien en arrière plan (Aperçu avant impression) et le "userform" reste active en premier plan dont je ne vois pas ma feuille et je ne parviens pas à fermer le "userform" active.

La macro pour imprimer

Sub BOUTON_FrmClient_Impression()
Sheets("CLIENT").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, Preview:=True
End Sub

et le bouton Imprimer qui se trouve dans le "userform"

Private Sub CommandButton1_Click()
Call BOUTON_FrmClient_Impression
Sheets("CLIENT").Activate
Unload userform
End Sub

Par la même occasion je souhaite vous demander est-il possible d'ajouter un "Info-bulle..." à un "CommandButton1_Click" qui se trouve dans un "userform"


merci
@+

 

[Dranreb]

Bonsoir.
J'aurais plutôt vu PrintPreview pour afficher l'aperçu avant impression.
Avec devant Me.Hide, et derrière Me.Show.
La propriété ControlTipText devrait convenir pour une info bulle.

 

[Dranreb]

Mettez Me pour désigner l'objet possédant le code: ça évite les erreurs.

 

[Dranreb]

Il est possible de mettre des images …

 

[Dranreb]

Bonjour.
Mettez la propriété ShowModal du UserForm à False pour pouvoir exécuter des commandes pendant qu'il est affiché.

 

[Dranreb]

Pourquoi n'y a-t-il pas Application.DisplayFullScreen = False au début de cette procédure ?

 

[Dranreb]

Chez moi ceci marche :

Private Sub CommandButton1_Click()
   Me.Hide
   Sheets("CLIENT").Activate
   Application.DisplayFullScreen = False
   Call BOUTON_FrmClient_Impression
   Sheets("ACCUEIL").Activate
   Application.DisplayFullScreen = True
   Me.Show
   End Sub

Remarque: j'ai mis la propriété ShowModal du UserForm1 à False.

 

[Dranreb]

Non. Je ne vois pas. Chez moi ça marche dans tous les cas
Remarque: les Sheets(…).Activate ne servent à rien.
Sheets("CLIENT").PrintPreview marche même si ce n'est pas la feuille active.

 

[Dranreb]

Joignez votre classeur. Là je ne comprends rien à vos problèmes.
Peut être devriez vous alouter des procédures dans le module ThisWorkbook
Et surtout, important, mettre ShowModal du UserForm à False pour que les Show ne bloquent jamais l'exécution.

 

[Kevin38]

Bonjour à tous,

Je sollicite votre aide pour ma commande ci-dessous; j'ai mon "userform" et souhaite imprimer une feuille de mon classeur. Mais mon soucis est que quand je click sur le bouton imprimer, ma feuille à imprimer s'affiche bien en arrière plan (Aperçu avant impression) et le "userform" reste active en premier plan dont je ne vois pas ma feuille et je ne parviens pas à fermer le "userform" active.

La macro pour imprimer

Sub BOUTON_FrmClient_Impression()
Sheets("CLIENT").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, Preview:=True
End Sub

et le bouton Imprimer qui se trouve dans le "userform"

Private Sub CommandButton1_Click()
Call BOUTON_FrmClient_Impression
Sheets("CLIENT").Activate
Unload userform
End Sub

Par la même occasion je souhaite vous demander est-il possible d'ajouter un "Info-bulle..." à un "CommandButton1_Click" qui se trouve dans un "userform"


merci
@+

Bonsoir Dranerb,

Concernant : "ControlTipText" Ok
Concernant : le code ci-dessous est-ce bien correcte?

Sub BOUTON_FrmClient_Impression()
FrmClient.Hide
Sheets("CLIENT").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, Preview:=True
FrmClient.Show
End Sub

Merci
@+

 

[Kevin38]

Bonjour Dranreb,

C'est OK, je vous remercie pour le temps que vous avez consacré.

Une petite question est-il possible de créer un Button de Command (Contrôle ActiveX) personnel
càd peut-être rond, rectangle avec coins arrondi ou autre

Merci d'avance
@+

 

[Kevin38]

Il est possible de mettre des images …

Merci
@+

PS: Je reviendrai vers vous pour vous demandez une importations de liste (txt, csv) dans une feuille dont (client et produit) via un "userform".
Merci

 

[Kevin38]

Mettez Me pour désigner l'objet possédant le code: ça évite les erreurs.

Bonjour Dranreb,

J'aurai une question : à l'ouverture de mon classeur dans Thisworkbook je masque le ruban avec

Application.DisplayFullScreen = True

mais en utilisant le "userform" pour imprimer la liste client (PrintPreview) le ruban est masqué impossible de le fermer j'ai ajouté le code ;

Private Sub CommandButton1_Click()
Me.Hide
Call BOUTON_FrmClient_Impression
'Sheets("CLIENT").Activate
Application.DisplayFullScreen = False
Me.Show
Sheets("ACCEUIL").Activate
Application.DisplayFullScreen = True
End Sub

mais donne différentes erreurs càd impossible de le fermer, quand je click sur "Fermer" ça bloque et le format de mon classeur change.

Comment pourrais-je solutionner.

Merci
@+

 

[Kevin38]

Bonjour.
Mettez la propriété ShowModal du UserForm à False pour pouvoir exécuter des commandes pendant qu'il est affiché.

Bonjour,

ShowModal: False Ok pour le userform "FrmClient" mais l'incident reste identique. SI possible avec le bouton IMPRIMER (je souhaite ouvrir avant l'impression et à partir de là on sait aussi imprimer) je peux nommé le bouton "PrintPreview" mais même si le renomme, à l'ouverture du "PrintPreview" le ruban reste toujours masquer à la fermeture de celle-ci je souhaite aller à ma page Acceuil avec le ruban masqué

Sheets("ACCEUIL").Activate
Application.DisplayFullScreen = True

car quand je click sur "Fermer" ça bloque et le thème de mon classeur change.

Sheets("ACCEUIL").Activate

Je n'arrive pas à comprendre d'où peu provenir ce changement de theme.

PS: Dois-je désactivé l' Application.DisplayFullScreen

Merci
@+

 

[Dranreb]

C'est quoi le problème ? Les commandes d'impressions effectives ne sont pas accessibles ?
Le Application.DisplayFullScreen = False ne serait-il pas fait trop tard, après que la commande PrintOut ait été lancée ? Personnellement je préfère PrintPreview, qui permet aussi de lancer l'impression effective (si les commandes sont accessibles).