Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Imprimer une feuille via userform

K

Kevin38

XLDnaute Nouveau
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

VB: 
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"

VB: 
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
@+
 
Dernière édition:
Solution
Chez moi ceci marche :
VB: 
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.
Trier par date Trier par votes
K

Kevin38

XLDnaute Nouveau
Bonsoir Dranerb,

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

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

Merci
@+
 
Vote positif 0 Vote négatif
K

Kevin38

XLDnaute Nouveau
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
@+
 
Vote positif 0 Vote négatif
K

Kevin38

XLDnaute Nouveau
Dranreb à dit:
Mettez Me pour désigner l'objet possédant le code: ça évite les erreurs.
Cliquez pour agrandir...
Bonjour Dranreb,

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

VB: 
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 ;

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
@+
 
Vote positif 0 Vote négatif
K

Kevin38

XLDnaute Nouveau
Dranreb à dit:
Bonjour.
Mettez la propriété ShowModal du UserForm à False pour pouvoir exécuter des commandes pendant qu'il est affiché.
Cliquez pour agrandir...
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é
VB: 
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
@+
 
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
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).
 
Vote positif 0 Vote négatif
K

Kevin38

XLDnaute Nouveau
Re,

Oui étant donné que le ruban reste masqué les commandes d'impressions ne sont pas accessibles.
Pour le "Application.DisplayFullScreen" j'en ai 2 pour l'ouverture et quand je quite l'aperçu avant impression qu'est-ce je peu faire je garde les 2 et
Application.DisplayFullScreen= False
place auprès le Me.Hide et avant la macro


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

Merci
@+
 
Dernière édition:
Vote positif 0 Vote négatif
K

Kevin38

XLDnaute Nouveau
Dranreb à dit:
Pourquoi n'y a-t-il pas Application.DisplayFullScreen = False au début de cette procédure ?
Cliquez pour agrandir...
Bonsoir,

J'ai testé un peu de tout mais noway je n'ai toujours pas obtenu ce que je cherche.

La feuille "CLIENT" est là, masquer automatiquement le ruban enregistrer et fermer ainsi quand vous re-ouvrez le fichier et que vous voulez "IMPRIMER" càd un "PrintPreview=aperçu avant impression" les commandes d'impressions effectives ne sont plus accessibles dans l'aperçu avant impression et quand vous activez 'afficher les onglets et commandes' et que vous "FERMER" le theme du classeur change.

Pourriez vous le tester avec ruban masquer à l'ouverture, ruban afficher à l'aperçu avant impression et une fois "FERMER" et quand on revient sur la page Accueil Ruban de nouveau masquer.

Merci
@+
 

Pièces jointes

  • Test_PrintPreview.xlsm
    30.2 KB · Affichages: 5
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
  • Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
171
chris6999
B
  • Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
529
kiki29
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
555
TooFatBoy
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
658
Panda79360
P
M
  • Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
513
herve62
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
310
gillesda
G
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
367
Nel'
N
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
180
NONO14
N
J
  • Question
XL 2019 recuperer plage de cellule sur feuille differente
Réponses
2
Affichages
568
juju91
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…