bouton imprimer avec imprimante spécifiée Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
v
vinceshiver
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 10 octobre 2017
Version d'Excel : 2013

Message par vinceshiver » 20 novembre 2018, 19:35

Bonjour à toutes et à tous.
Je vous expose mon problème.
J'ai créé un petit fichier excel pour imprimer des tickets de caisse, jusque là pas de problème.
Et je souhaite créer un bouton permettant d'imprimer ce ticket sur une imprimante spécifique, qui n'est pas celle par défaut dans windows, qui sera mon imprimante de ticket
Je n'ai jamais utilisé VBA, je suis strictement débutant.
Quelqu’un d'entre vous saurait-il m'aider?

Merci d'avance
Vincent
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'074
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 20 novembre 2018, 20:17

Bonjour Vincent,

:bv:

j'ai cette seule solution à proposer : en dehors d'Excel, avec Windows, va sur « Périphériques et imprimantes » ; fais un clic droit sur ton imprimante spécifique ; choisis l'item « Définir comme imprimante par défaut » : la coche sur fond vert doit être dessus.

j'crois pas qu'tu devras arrêter et redémarrer le PC, mais tu devras p't'être sortir d'Excel et le relancer pour que cette nouvelle imprimante par défaut soit prise en compte.

dhany
v
vinceshiver
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 10 octobre 2017
Version d'Excel : 2013

Message par vinceshiver » 20 novembre 2018, 20:22

merci pour votre réponse rapide, mais je ne souhaite pas modifier mon imprimante par défaut. J'aimerais utiliser l'imprimante thermique uniquement pour ce fichier excel (par la création d'un bouton, qui me permettrait de ne pas avoir à utiliser les menus fichier-imprimer et devoir choisir l'imprimante à chaque fois)
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'074
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 20 novembre 2018, 20:32

j'crois bien avoir trouvé pile poil ce qu'il te faut (lis la réponse de MichelXld) :

https://www.excel-downloads.com/threads ... ost-265336

n'hésite pas à lire toute la conversation ; bonne chance !

dhany
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'074
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 21 novembre 2018, 13:24

@Vincent

pas de retour ?  :bof:

si le code VBA de MichelXld  a pu t'aider à régler ton problème, merci de passer le sujet en résolu : il suffit de cliquer sur le bouton près de (regarde dans le coin haut droit du post) ; ça permet aussi de clôturer le fil de la discussion ; tu sauras que tu as réussi quand tu verras un petit rond vert avec une coche, comme ceci :
Sujet résolu.jpg
Sujet résolu.jpg (7.99 Kio) Vu 164 fois
(toi seul peut le faire, car c'est toi qui a créé ce sujet)

dhany
v
vinceshiver
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 10 octobre 2017
Version d'Excel : 2013

Message par vinceshiver » 21 novembre 2018, 13:30

Je viens tout juste de terminer et ça fonctionne.
D'abord créer une macro pour trouver le nom de l'imprimante

Sub Nomimprimante()
Debug.Print Application.ActivePrinter
End Sub



Puis le code du bouton avec nom de l'imprimante :

Private Sub CommandButton1_Click()
Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
Ignoreprintareas:=False

End Sub


Merci de votre aide.
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'074
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 21 novembre 2018, 13:32

merci pour ton retour, et pour avoir passé le sujet en résolu !  :D

merci aussi pour avoir partagé ta solution !  :bien:

bonne continuation !  :trfl:

dhany
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message